(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    258698,       5187]
NotebookOptionsPosition[    251523,       5082]
NotebookOutlinePosition[    252001,       5100]
CellTagsIndexPosition[    251958,       5097]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["1 \:4e8c\:7ef4\:6807\:91cf\:65b9\:7a0b", "Section",
 CellChangeTimes->{{3.793515517120455*^9, 3.793515522432588*^9}, {
  3.793746609924209*^9, 3.793746612115737*^9}, {3.7939229519231567`*^9, 
  3.793922968890067*^9}, {3.793923075855299*^9, 3.793923076870965*^9}, {
  3.80091602997244*^9, 3.800916048949185*^9}},
 TextAlignment->Left,ExpressionUUID->"6583621e-c518-40a8-b129-6ce17829b420"],

Cell["\:4e8c\:7ef4\:6807\:91cf\:65b9\:7a0b\:5982\:4e0b", "Text",
 CellChangeTimes->{{3.793339354890843*^9, 3.793339374607121*^9}, {
   3.79341926823217*^9, 3.793419269449767*^9}, {3.793480880668414*^9, 
   3.793480909284091*^9}, {3.7935155937905903`*^9, 3.7935155985595913`*^9}, 
   3.7937465446854773`*^9, {3.800916041012081*^9, 
   3.80091604364429*^9}},ExpressionUUID->"724dc51a-3d5c-48a7-88f6-\
fe6c53c3d7a0"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"\[PartialD]", "u"}], 
      RowBox[{"\[PartialD]", "t"}]], "+", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"f", "(", "u", ")"}]}], 
      RowBox[{"\[PartialD]", "x"}]], "+", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"g", "(", "u", ")"}]}], 
      RowBox[{"\[PartialD]", "y"}]]}], "=", "0"}], ",", " ", 
   RowBox[{
    RowBox[{"[", 
     RowBox[{"x", ",", "y"}], "]"}], "\[Element]", "\[CapitalOmega]"}], ","}],
   TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.793339401589134*^9, 3.7933394350751333`*^9}, {
   3.7933394689855328`*^9, 3.7933394742031918`*^9}, 3.793440117526381*^9, {
   3.793571772536409*^9, 3.7935718424516487`*^9}, {3.7935718804594603`*^9, 
   3.7935718818750763`*^9}, {3.7935726047827263`*^9, 3.79357265190879*^9}, {
   3.793572750386237*^9, 3.7935727510483913`*^9}, {3.793658525730871*^9, 
   3.793658539434565*^9}, {3.793746549093438*^9, 3.7937465490952578`*^9}, {
   3.800825481744673*^9, 3.800825568154929*^9}, {3.800916071804153*^9, 
   3.800916093938136*^9}},
 TextAlignment->Center,ExpressionUUID->"e9fb3722-36af-480f-959b-7246b1d8ae94"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"\[PartialD]", "u"}], 
      RowBox[{"\[PartialD]", "t"}]], "+", 
     RowBox[{"\[Del]", "\[CenterDot]", 
      StyleBox["F",
       FontWeight->"Bold",
       FontSlant->"Plain"]}]}], "=", "0"}], ",", " ", 
   RowBox[{
    RowBox[{"[", 
     RowBox[{"x", ",", "y"}], "]"}], "\[Element]", "\[CapitalOmega]"}], ","}],
   TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.793339401589134*^9, 3.7933394350751333`*^9}, {
   3.7933394689855328`*^9, 3.7933394742031918`*^9}, 3.793440117526381*^9, {
   3.793571772536409*^9, 3.7935718424516487`*^9}, {3.7935718804594603`*^9, 
   3.7935718818750763`*^9}, {3.7935726047827263`*^9, 3.79357265190879*^9}, {
   3.793572750386237*^9, 3.7935727510483913`*^9}, {3.793658525730871*^9, 
   3.793658539434565*^9}, {3.793746549093438*^9, 3.7937465490952578`*^9}, {
   3.800825481744673*^9, 3.800825568154929*^9}, {3.800916071804153*^9, 
   3.800916093938136*^9}, {3.8009161640963163`*^9, 3.8009161837893476`*^9}},
 TextAlignment->Center,ExpressionUUID->"15fb6642-d79e-4541-8630-541458a9e35a"],

Cell[TextData[{
 "\:5176\:4e2d,  ",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"u", " ", "=", " ", 
     RowBox[{"u", " ", 
      RowBox[{"(", 
       RowBox[{"x", ",", " ", "y", ",", " ", "t"}], ")"}]}]}]}], 
   TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "7bdb000d-8e87-4cf1-8ccb-f351daf50ee1"],
 " \:4e3a\:6807\:91cf\:51fd\:6570, ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    StyleBox["F",
     FontWeight->"Bold",
     FontSlant->"Plain"], "=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"f", "(", "u", ")"}], ",", 
      RowBox[{"g", "(", "u", ")"}]}], ")"}]}], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "f81907d8-0abb-4b8a-b40f-a5629a877e43"],
 "\:4e3a\:901a\:91cf\:9879."
}], "Text",
 CellChangeTimes->{{3.800825667644175*^9, 3.800825673903553*^9}, {
  3.800825714153829*^9, 3.800825793372085*^9}, {3.800874763400753*^9, 
  3.800874812573224*^9}, {3.800916102883946*^9, 3.800916148032037*^9}, {
  3.8009162520876017`*^9, 
  3.800916252087686*^9}},ExpressionUUID->"34bfb646-0fed-4e6d-b922-\
af5252c2eb5e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["2 \:95f4\:65ad\:6709\:9650\:5143\:65b9\:6cd5", "Section",
 CellChangeTimes->{{3.793480942290612*^9, 3.793480962697905*^9}, {
  3.7934842863558903`*^9, 3.793484287432328*^9}, {3.793922930587058*^9, 
  3.793922944171115*^9}, {3.793923038266255*^9, 3.7939230400242777`*^9}},
 TextAlignment->Left,ExpressionUUID->"9374db98-e2e9-4b17-96d1-9884e8cd160b"],

Cell[CellGroupData[{

Cell["2.1 \:533a\:95f4\:5206\:89e3", "Subsection",
 CellChangeTimes->{{3.793484000764492*^9, 3.793484035211606*^9}, {
  3.793484290363908*^9, 3.793484310863199*^9}, {3.793489485933811*^9, 
  3.7934894860841827`*^9}, {3.793746623196424*^9, 3.7937466254677258`*^9}},
 TextAlignment->Left,ExpressionUUID->"efd65273-15a0-42a1-b676-94e29ed0eef6"],

Cell[TextData[{
 "We consider problems posed on the ",
 StyleBox["physical domain",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " \[CapitalOmega] with boundary \[PartialD]\[CapitalOmega] and assume that \
this domain is well ",
 StyleBox["approximated",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " by the ",
 StyleBox["computational domain ",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalOmega]", "h"], TraditionalForm]],ExpressionUUID->
  "8981e039-04a2-455a-9d2a-a110b977c860"],
 ". In 2D situation, this is a space filling triangulation composed of a \
collection of K geometry-conforming nonoverlapping elements, ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[CapitalOmega]", "k"], TraditionalForm]],ExpressionUUID->
  "b079fa35-aae5-481f-bf83-35c01a6005c1"],
 ". The shape of these elements can be arbitrary although we will mostly \
consider cases where they are ",
 StyleBox["d",
  FontSlant->"Italic"],
 "-dimensional simplexes."
}], "Text",
 CellChangeTimes->{{3.793395807090664*^9, 3.793395887720182*^9}, {
  3.79339592737014*^9, 3.793395982557005*^9}, {3.793396046885236*^9, 
  3.793396190270986*^9}, {3.793396549645535*^9, 3.793396621710918*^9}, {
  3.793396849074202*^9, 3.793396850365487*^9}, {3.793396962930152*^9, 
  3.793396964049405*^9}, {3.7933970384912357`*^9, 3.7933970922135963`*^9}, {
  3.793397132213429*^9, 3.793397138255266*^9}, {3.793577338053789*^9, 
  3.7935773380539007`*^9}},
 TextJustification->1.,ExpressionUUID->"107895e6-794e-4a60-b375-495127170f1a"],

Cell[TextData[{
 "Thus, \[CapitalOmega] is only approximated by the union of ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[CapitalOmega]", "k"], TraditionalForm]],
  CellChangeTimes->{{3.793396648502351*^9, 3.793396688426943*^9}, {
   3.7933967700421953`*^9, 3.793396833070283*^9}, {3.793396864679192*^9, 
   3.793396915086499*^9}},
  TextAlignment->Center,ExpressionUUID->
  "c5e563bb-30bf-4c42-b64b-101ff3b4d34a"],
 ", that is"
}], "Text",
 CellChangeTimes->{{3.793395807090664*^9, 3.793395887720182*^9}, {
  3.79339592737014*^9, 3.793395982557005*^9}, {3.793396046885236*^9, 
  3.793396190270986*^9}, {3.793396549645535*^9, 3.793396621710918*^9}, {
  3.793396849074202*^9, 3.793396850365487*^9}, {3.793396962930152*^9, 
  3.793396964049405*^9}, {3.7933970384912357`*^9, 3.7933970922135963`*^9}, {
  3.793397132213429*^9, 3.7933971422907553`*^9}, {3.793577338423049*^9, 
  3.793577338423098*^9}},
 TextJustification->1.,ExpressionUUID->"cc9b13a3-8a37-4e1d-afb7-28a5a580071c"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalOmega]", "\[TildeEqual]", 
     SubscriptBox["\[CapitalOmega]", "h"]}], "=", 
    RowBox[{
     UnderscriptBox[
      OverscriptBox["\[Union]", 
       RowBox[{"  ", "K"}]], 
      RowBox[{"  ", 
       RowBox[{"k", "=", "1"}]}]], 
     SuperscriptBox["\[CapitalOmega]", "k"]}]}], ","}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.793396648502351*^9, 3.793396688426943*^9}, {
   3.7933967700421953`*^9, 3.793396833070283*^9}, {3.793396864679192*^9, 
   3.793396915086499*^9}, 3.793577323859796*^9},
 TextAlignment->Center,ExpressionUUID->"6c6c644a-8e56-4fcb-8d0e-20f7a457a1af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Region", "[", 
  RowBox[{
   RowBox[{"Disk", "[", "]"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.800875936539179*^9, 3.800875942779223*^9}, {
  3.800875980148223*^9, 3.80087601392976*^9}, {3.800876046921636*^9, 
  3.800876064338114*^9}, {3.8008761671018248`*^9, 3.800876175195805*^9}, {
  3.8008762335497913`*^9, 3.800876245931139*^9}},
 CellLabel->
  "In[158]:=",ExpressionUUID->"097e0c94-13ff-42e4-990b-82bcef68035c"],

Cell[BoxData[
 GraphicsBox[
  TagBox[
   DynamicModuleBox[{Typeset`region = HoldComplete[
     Region[
      Disk[{0, 0}], ImageSize -> Small]]}, 
    TagBox[{DiskBox[{0, 0}], {}},
     MouseAppearanceTag["LinkHand"]],
    AllowKernelInitialization->False],
   "RegionGraphics",
   AutoDelete->True,
   Editable->False,
   Selectable->False],
  BaseStyle->{
    Hue[0.6, 0.3, 0.95]},
  ImageSize->Small]], "Output",
 CellChangeTimes->{{3.800875940369193*^9, 3.800875943380679*^9}, 
   3.800875981088336*^9, 3.80087601443911*^9, {3.800876056013242*^9, 
   3.800876066842657*^9}, {3.800876170406015*^9, 3.800876178222336*^9}, {
   3.800876219566599*^9, 3.80087624657111*^9}},
 CellLabel->
  "Out[158]=",ExpressionUUID->"aef763e5-924a-4b36-a1ca-cb24c5b5af13"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DiscretizeRegion", "[", 
  RowBox[{
   RowBox[{"Disk", "[", "]"}], ",", 
   RowBox[{"MaxCellMeasure", "\[Rule]", "0.2"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Small"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8008757973629513`*^9, 3.800875802167121*^9}, {
  3.800875906456492*^9, 3.800875922626665*^9}, {3.800876251099926*^9, 
  3.800876255506413*^9}},
 CellLabel->
  "In[159]:=",ExpressionUUID->"64b11cf9-fc86-4c8d-9063-d4e16514a366"],

Cell[BoxData[
 GraphicsBox[
  TagBox[
   DynamicModuleBox[{Typeset`mesh = {MeshRegion, {ImageSize -> Small}}}, 
    TagBox[GraphicsComplexBox[CompressedData["
1:eJxVkl9Ik1EYxudSC2clhahBlISBYREiWDF8i9xNarZR4YVdbDhNVzh1ihlF
mBeaCwcuKRvRhYhWSpamM+tdbWZbc/hnbc6W2rdpzf9giLXK0vN60YGP8x3O
Oc/7PL/zRsvyJXI+j8c79u9bm9lYhI2/KOG16hsNCyCQX4kZ3GmEd2q9Yqt2
Hhr99bbkz0NQkPmhucc+C4bHBWkG0ydQ/UxJVSunYTZUYu4M5iDbvxIfW/wV
tArBgx/GSRieq+YeLnng1FhQsTHQBwHrVSbgUWrGt7IXM1Cr48QodcLtxKzX
neY5UIv4Hs1VK1z0ZQTp4heAH+afKY9+Dv1cyGKEbwFGt6+vcWNdys5jLp2v
YnpYQ3q/VtfGOD6hev3MD54mPzLmF++S30KWB+cpTz7LixbKa2I8sJV4RDJe
GEO8iCfyI3rVVbkm4S7a/521vo99dP8+u49FpN/F9LGE6vtYfcwlfxrmD13k
X8T8YyDjiU0sH+oov5rlxybik8P4oCDsP37YxniCjdaZxF9B5yvpfTSkt8R4
QivVs9D7SsgP8YR75FdJ/bFEeS5T/wxT3rfUX0g8iCccYDyR66rp08td+F5s
Cf5+3I6xTlEqF+3GigptKT9pALq1jVMThZM4thxwYfMdI17KuF7etncUR55q
VCdiPThj3bZPut8IKm/rSE3IOPaGv+w4Zx7BW2+aLYUHOZjmHUrg6aawKF4W
l9JgAr3XIT0b6QB1VOjQjgEnJETVhdWld+N5w5mjy4OTKGb64CB99t7twpPp
HcmrTR4wrHyMs+2xQ1lLmnHa64XEVzmCzOwv4NYp/XPuBtwt3XKzJNwLLd4/
9a7DTkisrdQ/S/JA1aa8PPcRB+lZe9jsEv4F9qT30w==
      "], 
      {Hue[0.6, 0.3, 0.95], EdgeForm[Hue[0.6, 0.3, 0.75]], 
       TagBox[
        PolygonBox[{{46, 26, 27}, {26, 43, 45}, {25, 45, 24}, {25, 26, 45}, {
         34, 51, 33}, {51, 31, 32}, {46, 43, 26}, {29, 46, 28}, {49, 19, 
         20}, {46, 27, 28}, {49, 22, 45}, {21, 49, 20}, {22, 23, 45}, {16, 48,
          15}, {58, 43, 47}, {23, 24, 45}, {56, 4, 5}, {18, 48, 17}, {49, 18, 
         19}, {29, 30, 46}, {49, 44, 18}, {17, 48, 16}, {44, 48, 18}, {42, 57,
          41}, {40, 41, 57}, {14, 15, 48}, {51, 30, 31}, {53, 13, 48}, {43, 
         44, 45}, {47, 51, 34}, {35, 52, 34}, {43, 58, 44}, {36, 37, 52}, {47,
          57, 55}, {56, 55, 2}, {36, 52, 35}, {38, 57, 52}, {34, 52, 47}, {55,
          57, 42}, {39, 40, 57}, {55, 1, 2}, {53, 50, 54}, {10, 54, 9}, {55, 
         42, 1}, {55, 50, 58}, {46, 51, 43}, {50, 55, 56}, {2, 3, 56}, {58, 
         50, 53}, {53, 54, 10}, {53, 11, 12}, {9, 54, 8}, {22, 49, 21}, {13, 
         14, 48}, {45, 44, 49}, {13, 53, 12}, {6, 7, 54}, {5, 6, 56}, {44, 53,
          48}, {57, 38, 39}, {8, 54, 7}, {6, 54, 56}, {43, 51, 47}, {33, 51, 
         32}, {37, 38, 52}, {10, 11, 53}, {3, 4, 56}, {47, 52, 57}, {50, 56, 
         54}, {46, 30, 51}, {55, 58, 47}, {53, 44, 58}}],
        Annotation[#, "Geometry"]& ]}],
     MouseAppearanceTag["LinkHand"]],
    AllowKernelInitialization->False],
   "MeshGraphics",
   AutoDelete->True,
   Editable->False,
   Selectable->False],
  DefaultBaseStyle->{
   "MeshGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.1, 1, 0.7]},
  ImageSize->Small]], "Output",
 CellChangeTimes->{
  3.800875817252695*^9, {3.8008759110814333`*^9, 3.8008759240845547`*^9}, 
   3.800876182676152*^9, 3.8008762230592813`*^9, 3.800876256371023*^9},
 CellLabel->
  "Out[159]=",ExpressionUUID->"0e94358c-be70-4056-b73f-6be0dee8e272"]
}, Open  ]],

Cell["\<\
although we will not distinguish the two domains unless needed.\
\>", "Text",ExpressionUUID->"b63fd048-a77b-4299-a60d-1dbc7cd0fb4f"],

Cell[TextData[{
 "We define the ",
 StyleBox["local inner product  ",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["L", "2"], "(", 
    SuperscriptBox["\[CapitalOmega]", "k"], ")"}], TraditionalForm]],
  ExpressionUUID->"26f9859f-cad1-456c-9e3b-0c37d7c3bfa9"],
 " norm"
}], "Text",
 CellChangeTimes->{{3.793397244071589*^9, 3.7933972943259487`*^9}, {
  3.7935773244903193`*^9, 
  3.793577324490366*^9}},ExpressionUUID->"401b720f-40f0-4627-a91d-\
345bd2766c97"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SubscriptBox[
     StyleBox[
      RowBox[{"(", 
       RowBox[{"u", ",", "v"}], ")"}],
      FontSlant->"Plain"], 
     SuperscriptBox["\[CapitalOmega]", "k"]], "=", 
    RowBox[{
     SubscriptBox["\[Integral]", 
      SuperscriptBox["\[CapitalOmega]", "k"]], 
     RowBox[{"u", " ", "v", " ", "d", " ", "x"}]}]}], ",", " ", 
   RowBox[{
    SubsuperscriptBox[
     RowBox[{
     "\[LeftDoubleBracketingBar]", "u", "\[RightDoubleBracketingBar]"}], 
     SuperscriptBox["\[CapitalOmega]", "k"], "2"], "=", 
    SubscriptBox[
     RowBox[{"(", 
      RowBox[{"u", ",", "u"}], ")"}], 
     SuperscriptBox["\[CapitalOmega]", "k"]]}], ","}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.793397323680139*^9, 3.793397339164793*^9}, {
  3.7933973739505577`*^9, 3.7933974635766697`*^9}, {3.793397560383585*^9, 
  3.7933975870277157`*^9}, {3.793577327513364*^9, 3.793577330493473*^9}},
 TextAlignment->Center,ExpressionUUID->"abd1cedd-3fcb-4fe6-8757-e4efe05a2c64"],

Cell[TextData[{
 "as well as the ",
 StyleBox["global broken inner product",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " and norm"
}], "Text",
 CellChangeTimes->{{3.7933974557616777`*^9, 3.7933974574158907`*^9}, {
  3.79339759203574*^9, 
  3.7933976084345303`*^9}},ExpressionUUID->"c2b32460-c14c-4bc6-9f74-\
50c3f6ce28ce"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SubscriptBox[
     StyleBox[
      RowBox[{"(", 
       RowBox[{"u", ",", "v"}], ")"}],
      FontSlant->"Plain"], 
     SubscriptBox["\[CapitalOmega]", "h"]], "=", 
    RowBox[{
     OverscriptBox[
      UnderscriptBox["\[Sum]", 
       OverscriptBox["", 
        RowBox[{"  ", 
         RowBox[{"k", "=", "1"}]}]]], 
      RowBox[{" ", "K"}]], 
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{"u", ",", "v"}], ")"}], 
      SuperscriptBox["\[CapitalOmega]", "k"]]}]}], ",", " ", 
   RowBox[{
    SubsuperscriptBox[
     RowBox[{
     "\[LeftDoubleBracketingBar]", "u", "\[RightDoubleBracketingBar]"}], 
     SubscriptBox["\[CapitalOmega]", "h"], "2"], "=", 
    RowBox[{
     SubscriptBox[
      RowBox[{"(", 
       RowBox[{"u", ",", "u"}], ")"}], 
      SubscriptBox["\[CapitalOmega]", "h"]], "."}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.7933976240550222`*^9, 3.793397711926545*^9}, {
   3.793397777872302*^9, 3.7933977840079517`*^9}, {3.793397848071252*^9, 
   3.7933978490733843`*^9}, 3.7935773313385353`*^9},
 TextAlignment->Center,ExpressionUUID->"6853eb27-1fcb-4ff8-88d2-9811fff17c84"],

Cell[TextData[{
 "Generally, one has local information as well as information from the \
neighboring element along an intersection between two elements. Often we will \
refer to the union of these intersections in an element as the ",
 StyleBox["trace",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " of the element. "
}], "Text",
 CellChangeTimes->{{3.793397855756736*^9, 3.7933978942641277`*^9}, {
  3.793397990877108*^9, 3.7933979908772593`*^9}},
 TextJustification->1.,ExpressionUUID->"6a26781f-103b-459e-828d-30a11aac15cf"],

Cell[TextData[{
 "For the methods we discuss here, we will have two or more solutions or \
boundary conditions at the same physical location along the trace of the \
element. To fix the notation, we refer to the ",
 StyleBox["interior information",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " of the element by a superscript \[OpenCurlyDoubleQuote]\[Minus]\
\[CloseCurlyDoubleQuote] and to the ",
 StyleBox["exterior information",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " by a superscript \[OpenCurlyDoubleQuote]+\[CloseCurlyDoubleQuote]. Using \
this notation, it is useful to define the ",
 StyleBox["average",
  FontWeight->"Bold",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.793397855756736*^9, 3.7933978942641277`*^9}, {
  3.793397997404891*^9, 3.7933980442667933`*^9}},
 TextJustification->1.,ExpressionUUID->"7f7d136e-aa5a-4d93-8308-b9347a6987c8"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", "u", "}"}], "}"}], "=", 
    FractionBox[
     RowBox[{
      SuperscriptBox["u", "_"], "+", 
      SuperscriptBox["u", "+"]}], "2"]}], ","}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.793398115888829*^9, 3.79339816367242*^9}},
 TextAlignment->Center,ExpressionUUID->"860e5952-9f77-4738-b11e-dd296f8f72f1"],

Cell[TextData[{
 "where ",
 StyleBox["u ",
  FontSlant->"Italic"],
 "can be both a scalar and a vector. In the similar way, we also define the \
jump along a normal, ",
 Cell[BoxData[
  FormBox[
   OverscriptBox[
    StyleBox["n",
     FontWeight->"Bold"], "^"], TraditionalForm]],ExpressionUUID->
  "f3a303cd-6c84-4d45-a8ad-41f4ebcf0bd0"],
 ", as "
}], "Text",
 CellChangeTimes->{{3.793398169176491*^9, 3.793398298946253*^9}, {
  3.800876452685165*^9, 3.800876458085149*^9}},
 TextJustification->1.,ExpressionUUID->"aff1f581-f1af-42e9-a96f-5279dff901d2"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"\[LeftDoubleBracket]", "u", "\[RightDoubleBracket]"}], "=", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       OverscriptBox[
        StyleBox["n",
         FontWeight->"Bold"], "^"], "-"], 
      SuperscriptBox["u", "_"]}], "+", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox[
        StyleBox["n",
         FontWeight->"Bold"], "^"], "+"], 
      SuperscriptBox["u", "+"]}]}]}], ",", " ", 
   RowBox[{
    RowBox[{"\[LeftDoubleBracket]", 
     StyleBox["u",
      FontWeight->"Bold"], "\[RightDoubleBracket]"}], "=", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       OverscriptBox[
        StyleBox["n",
         FontWeight->"Bold"], "^"], "-"], "\[CenterDot]", 
      StyleBox[
       SuperscriptBox["u", 
        StyleBox["_",
         FontWeight->"Plain"]],
       FontWeight->"Bold"]}], "+", 
     RowBox[{
      SuperscriptBox[
       OverscriptBox[
        StyleBox["n",
         FontWeight->"Bold"], "^"], "+"], "\[CenterDot]", 
      RowBox[{
       StyleBox[
        SuperscriptBox["u", 
         StyleBox["+",
          FontWeight->"Plain"]],
        FontWeight->"Bold"], 
       StyleBox[".",
        FontWeight->"Plain"]}]}]}]}]}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.793398314517646*^9, 3.793398368616177*^9}, {
  3.793398400001802*^9, 3.79339843268159*^9}},
 TextAlignment->Center,ExpressionUUID->"481a3bc7-7e0d-4426-a2c4-66ae432f9ce7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["2.2 \:5c40\:90e8\:8fd1\:4f3c", "Subsection",
 CellChangeTimes->{{3.793484000764492*^9, 3.793484036571148*^9}, {
   3.793484294152637*^9, 3.793484294344103*^9}, 3.793484333145851*^9, {
   3.793489488758801*^9, 3.793489488916151*^9}},
 TextAlignment->Left,ExpressionUUID->"b162f59b-8174-4647-8f97-df91501f1988"],

Cell[TextData[{
 "\:5728\:7b2c",
 StyleBox["k",
  FontSlant->"Italic"],
 "\:4e2a\:5355\:5143\:4e0a",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SuperscriptBox["\[CapitalOmega]", "k"]}], TraditionalForm]],
  CellChangeTimes->{{3.793339615575333*^9, 3.793339620278076*^9}},
  TextAlignment->Center,ExpressionUUID->
  "14f582b9-a674-4f52-937e-e82e3244fb2e"],
 "\:ff0c\:5c40\:90e8\:89e3",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["u", "k"], "(", 
    RowBox[{
     StyleBox["x",
      FontWeight->"Bold"], ",", "t"}], ")"}], TraditionalForm]],
  CellChangeTimes->{{3.793339615575333*^9, 3.793339620278076*^9}, {
    3.793482565372918*^9, 3.793482566267153*^9}, 3.793482635049402*^9, {
    3.793483901722826*^9, 3.7934839106188602`*^9}, {3.7934851267961617`*^9, 
    3.7934851305076733`*^9}},
  TextAlignment->Center,ExpressionUUID->
  "4b687d94-ba34-48b3-869a-c77032ee265c"],
 "\:662f\:672a\:77e5\:7684\:ff0c\:6211\:4eec\:901a\:8fc7\:4e00\:4e2a\:7531",
 StyleBox["N",
  FontSlant->"Italic"],
 "\:4e2a\:8282\:70b9\:6784\:9020\:4e00\:4e2a",
 Cell[BoxData[
  FormBox[
   RowBox[{"p", "=", 
    RowBox[{"N", "-", "1"}]}], TraditionalForm]],ExpressionUUID->
  "ea61fd44-4c35-4095-9a06-92b1d8cb9812"],
 "\:9636\:7684\:591a\:9879\:5f0f",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["u", "h", "k"], "(", 
    RowBox[{"x", ",", "t"}], ")"}], TraditionalForm]],
  CellChangeTimes->{{3.793339615575333*^9, 3.793339620278076*^9}, {
    3.793482565372918*^9, 3.793482566267153*^9}, 3.793482635049402*^9, {
    3.793483901722826*^9, 3.7934839106188602`*^9}, {3.7934851267961617`*^9, 
    3.7934851305076733`*^9}, {3.7935158617178917`*^9, 3.793515886049634*^9}},
  TextAlignment->Center,ExpressionUUID->
  "9de379b1-c518-43b7-9349-c235efad72b3"],
 "\:5bf9\:5176\:8fdb\:884c\:8fd1\:4f3c"
}], "Text",
 CellChangeTimes->{{3.793481189476386*^9, 3.7934812374644747`*^9}, {
   3.7934838425352297`*^9, 3.793483847098032*^9}, {3.7935156504735737`*^9, 
   3.793515682068437*^9}, {3.793515738353259*^9, 3.79351581835806*^9}, {
   3.7935158513752728`*^9, 3.7935158543478823`*^9}, 3.7935159138670692`*^9, {
   3.7935161086190853`*^9, 3.7935161138898973`*^9}, {3.7935161962751293`*^9, 
   3.7935162240783978`*^9}, {3.7935166544058447`*^9, 3.793516668284218*^9}, {
   3.7935167274286137`*^9, 
   3.793516751775131*^9}},ExpressionUUID->"3e1a5303-86c3-425d-9531-\
81693fb6ab26"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     StyleBox["x",
      FontWeight->"Bold"], "\[Element]", 
     RowBox[{
      SuperscriptBox["\[CapitalOmega]", "k"], ":", 
      RowBox[{
       RowBox[{
        SuperscriptBox["u", "k"], "(", 
        RowBox[{
         StyleBox["x",
          FontWeight->"Bold"], ",", "t"}], ")"}], "\[TildeTilde]", 
       RowBox[{
        SubsuperscriptBox["u", "h", "k"], "(", 
        RowBox[{
         StyleBox["x",
          FontWeight->"Bold"], ",", "t"}], ")"}]}]}]}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"n", "=", "1"}], 
      RowBox[{" ", "N"}]], 
     RowBox[{
      RowBox[{
       SubsuperscriptBox["u", "i", "k"], "(", "t", ")"}], 
      RowBox[{
       SubsuperscriptBox["\[ScriptL]", "i", "k"], "(", 
       StyleBox["x",
        FontWeight->"Bold"], ")"}]}]}]}], ",", " ", 
   RowBox[{"1", "\[LessEqual]", "i", "\[LessEqual]", "N"}], ",", 
   RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "K"}], ","}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.793339615575333*^9, 3.793339620278076*^9}, {
   3.793482565372918*^9, 3.793482566267153*^9}, 3.793482635049402*^9, {
   3.793483901722826*^9, 3.7934839106188602`*^9}, {3.7934851267961617`*^9, 
   3.7934851305076733`*^9}, {3.7935158617178917`*^9, 3.793515886049634*^9}, {
   3.7935164877794847`*^9, 3.793516496442627*^9}, {3.793516603031447*^9, 
   3.7935166181907473`*^9}, 3.793516761481583*^9},
 TextAlignment->Center,ExpressionUUID->"d7e7a9e3-e4df-4513-9a01-7dcb68a0f9a5"],

Cell[TextData[{
 "\:5176\:4e2d\:ff0c",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubsuperscriptBox["u", "i", "k"], "(", "t", ")"}], "=", 
    RowBox[{
     SubsuperscriptBox["u", "h", "k"], "(", 
     RowBox[{
      SubsuperscriptBox[
       StyleBox["x",
        FontWeight->"Bold"], "i", "k"], ",", "t"}], ")"}]}], TraditionalForm]],
  CellChangeTimes->{{3.793339615575333*^9, 3.793339620278076*^9}, {
   3.793482565372918*^9, 3.793482566267153*^9}},
  TextAlignment->Center,ExpressionUUID->
  "e2a6afbe-8ec4-4f23-882a-e8fb388fb429"],
 " \:662f",
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox[
    StyleBox["x",
     FontWeight->"Bold"], "i", "k"], TraditionalForm]],
  CellChangeTimes->{{3.793339615575333*^9, 3.793339620278076*^9}, {
   3.793482565372918*^9, 3.793482566267153*^9}},
  TextAlignment->Center,ExpressionUUID->
  "bd789dd8-c6ab-41f7-8792-e793b2a7bdd7"],
 "\:70b9\:5904\:5bf9\:5e94\:7684\:8fd1\:4f3c\:89e3\:7684\:503c\:3002"
}], "Text",
 CellChangeTimes->{{3.793482620351665*^9, 3.793482743093286*^9}, 
   3.793482791876474*^9, {3.7934840244190083`*^9, 
   3.793484024419264*^9}},ExpressionUUID->"b03e6ec5-b57f-412c-9768-\
9b34252683b0"],

Cell[TextData[{
 "The global solution ",
 Cell[BoxData[
  FormBox[
   RowBox[{"u", "(", 
    RowBox[{
     StyleBox["x",
      FontWeight->"Bold"], ",", "t"}], ")"}], TraditionalForm]],
  CellChangeTimes->{{3.793339615575333*^9, 3.793339620278076*^9}, {
    3.7933948142028017`*^9, 3.793394821421821*^9}, {3.793395268103619*^9, 
    3.793395273622018*^9}, 3.7933953371986017`*^9, {3.793400219782444*^9, 
    3.7934002897064734`*^9}, {3.793400346050954*^9, 3.793400356047858*^9}},
  TextAlignment->Center,ExpressionUUID->
  "5fef9e38-2dde-4ba3-b2e4-872fbc87b544"],
 " is then assumed to be approximated by the piecewise ",
 StyleBox["N",
  FontSlant->"Italic"],
 "-th order polynomial approximation ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["u", "h"], "(", 
    RowBox[{"x", ",", "t"}], ")"}], TraditionalForm]],
  CellChangeTimes->{{3.793339615575333*^9, 3.793339620278076*^9}, {
    3.7933948142028017`*^9, 3.793394821421821*^9}, {3.793395268103619*^9, 
    3.793395273622018*^9}, 3.7933953371986017`*^9, {3.793400219782444*^9, 
    3.7934002897064734`*^9}, {3.793400346050954*^9, 3.793400356047858*^9}},
  TextAlignment->Center,ExpressionUUID->
  "2a4a9418-9452-489c-9aa3-a8f1e41d701b"],
 "."
}], "Text",
 CellChangeTimes->{{3.793401049375333*^9, 
  3.79340115969118*^9}},ExpressionUUID->"a447d099-ee7a-423f-8ae0-\
55453492b635"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     StyleBox["x",
      FontWeight->"Bold"], "\[Element]", 
     RowBox[{"\[CapitalOmega]", ":", 
      RowBox[{
       RowBox[{"u", " ", 
        RowBox[{"(", 
         RowBox[{
          StyleBox["x",
           FontWeight->"Bold"], ",", "t"}], ")"}]}], " ", "\[TildeEqual]", 
       RowBox[{
        SubscriptBox["u", "h"], "(", 
        RowBox[{
         StyleBox["x",
          FontWeight->"Bold"], ",", "t"}], ")"}]}]}]}], "=", 
    RowBox[{
     OverscriptBox[
      UnderscriptBox["\[CirclePlus]", 
       RowBox[{" ", 
        RowBox[{"k", "=", "1"}]}]], "K"], 
     RowBox[{
      SubsuperscriptBox["u", "h", "k"], "(", 
      RowBox[{
       StyleBox["x",
        FontWeight->"Bold"], ",", "t"}], ")"}]}]}], ","}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.793401187190432*^9, 3.793401254129984*^9}, {
  3.7935167726652107`*^9, 3.793516775639221*^9}},
 TextAlignment->Center,ExpressionUUID->"93a6fb51-14c3-4b98-ab54-1555674a3278"],

Cell[TextData[{
 "defined as the ",
 StyleBox["direct sum",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " of the K local polynomial solution ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["u", "h", "k"], "(", 
    RowBox[{
     StyleBox["x",
      FontWeight->"Bold"], ",", "t"}], ")"}], TraditionalForm]],
  CellChangeTimes->{{3.793401187190432*^9, 3.793401254129984*^9}},
  TextAlignment->Center,ExpressionUUID->
  "e7af1dc6-c870-4ec8-9972-48549ee5c1e0"],
 "."
}], "Text",
 CellChangeTimes->{{3.793401277973579*^9, 
  3.7934013241818123`*^9}},ExpressionUUID->"4c1fec50-afb9-49ef-8690-\
a9b14aeed12d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["2.3 \:6b8b\:5dee\:7684Galerkin\:6b63\:4ea4\:8fc7\:7a0b", "Subsection",
 CellChangeTimes->{{3.79348404737889*^9, 3.7934840809053164`*^9}, {
  3.793484313363077*^9, 3.793484313543312*^9}, {3.7934894928318996`*^9, 
  3.793489492987939*^9}, {3.793516406710246*^9, 3.793516413142578*^9}, {
  3.793746641580675*^9, 3.7937466470287313`*^9}},
 TextAlignment->Left,ExpressionUUID->"f7909c1a-6a2f-4930-a5d7-2d7c80681ff2"],

Cell["We form the residual", "Text",
 CellChangeTimes->{{3.793401365514409*^9, 
  3.7934013731959057`*^9}},ExpressionUUID->"b2f5530f-2b28-44eb-81f0-\
422929114feb"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{"\[ScriptCapitalR]", "(", 
     RowBox[{
      StyleBox["x",
       FontWeight->"Bold"], ",", "t"}], ")"}], "=", 
    RowBox[{
     FractionBox[
      RowBox[{"\[PartialD]", 
       SubscriptBox["u", "h"]}], 
      RowBox[{"\[PartialD]", "t"}]], "+", 
     RowBox[{"\[Del]", "\[CenterDot]", 
      StyleBox["F",
       FontWeight->"Bold",
       FontSlant->"Plain"]}]}]}], ","}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.793401406987569*^9, 3.793401467931282*^9}, {
   3.793519104683817*^9, 3.793519117787589*^9}, {3.800915735564961*^9, 
   3.800915742003407*^9}, 3.800916360538666*^9},
 TextAlignment->Center,ExpressionUUID->"2875f778-aae0-45b0-8639-ab6e8c1c8be5"],

Cell["and we must decide in which sense this should vanish.", "Text",
 CellChangeTimes->{{3.793401478775752*^9, 
  3.793401500191305*^9}},ExpressionUUID->"fa309727-caf3-458e-a1e1-\
27de3aaa8c38"],

Cell[TextData[{
 "Let us introduce a globally defined space ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["V", "h"], TraditionalForm]],ExpressionUUID->
  "340ea030-76dd-4d6c-9098-709259f6ed47"],
 " of test functions, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Phi]", "h"], TraditionalForm]],ExpressionUUID->
  "9feb9a5d-cff5-401b-906f-b879e1930e9f"],
 ", as ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["V", "h"], "=", 
    RowBox[{
     UnderoverscriptBox["\[CirclePlus]", 
      RowBox[{"k", "=", "1"}], "K"], 
     SubsuperscriptBox["V", "h", "k"]}]}], TraditionalForm]],ExpressionUUID->
  "eba52417-cc88-4db9-9a4a-32740d96b11d"],
 " where the locally defined spaces are defined as ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["V", "h", "k"], "=", 
    RowBox[{"span", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Psi]", "n"], "(", 
        SuperscriptBox["\[CapitalOmega]", "k"], ")"}], ",", 
       RowBox[{"1", "\[LessEqual]", "n", "\[LessEqual]", "N"}]}], "}"}]}]}], 
   TraditionalForm]],ExpressionUUID->"7e1ce5a0-dd08-4922-9e50-e71be22d713b"],
 ". We recognise ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["V", "h"], TraditionalForm]],ExpressionUUID->
  "edb1a476-aadf-49a2-a268-78ad4bbcf476"],
 " as the space of piecewise smooth functions defined on ",
 Cell[BoxData[
  FormBox["\[CapitalOmega]", TraditionalForm]],ExpressionUUID->
  "d7f6158e-a470-41e0-8cac-246fb6af009b"],
 ".  "
}], "Text",
 CellChangeTimes->{{3.793405127137849*^9, 3.79340548836448*^9}, {
  3.79340553502113*^9, 3.7934056660654993`*^9}, {3.79351658695347*^9, 
  3.793516587287539*^9}, {3.7935193113654127`*^9, 3.793519359522766*^9}, {
  3.793519449174429*^9, 3.793519514188879*^9}},
 TextJustification->1.,ExpressionUUID->"f08f473e-5e33-4068-94a4-58aee1055608"],

Cell[TextData[{
 "we now require that the residual is orthogonal to all test functions in ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["V", "h"], TraditionalForm]],ExpressionUUID->
  "919199e7-aed3-42d5-9589-f4ce2f489f5f"],
 ", resulting in the local statement"
}], "Text",
 CellChangeTimes->{{3.793405694223846*^9, 3.7934057254223413`*^9}, {
  3.7934058183434267`*^9, 3.793405834647488*^9}},
 TextJustification->1.,ExpressionUUID->"a06c5a8f-2d14-4d28-a129-24ba6127c75c"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[Integral]", 
      SuperscriptBox["\[CapitalOmega]", "k"]], 
     RowBox[{
      RowBox[{
       SubscriptBox["\[ScriptCapitalR]", "h"], "(", 
       RowBox[{
        StyleBox["x",
         FontWeight->"Bold"], ",", "t"}], ")"}], 
      RowBox[{
       SubscriptBox["\[Psi]", "n"], "(", 
       StyleBox["x",
        FontWeight->"Bold"], ")"}], 
      RowBox[{"\[DifferentialD]", 
       StyleBox["x",
        FontWeight->"Bold"]}]}]}], "=", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[Integral]", 
       SuperscriptBox["\[CapitalOmega]", "k"]], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           SubsuperscriptBox["u", "h", "k"]}], 
          RowBox[{"\[PartialD]", "t"}]], "+", 
         RowBox[{"\[Del]", "\[CenterDot]", 
          StyleBox["F",
           FontWeight->"Bold",
           FontSlant->"Plain"]}]}], ")"}], " ", 
       RowBox[{
        SubscriptBox["\[Psi]", "n"], "(", 
        StyleBox["x",
         FontWeight->"Bold"], ")"}], 
       RowBox[{"\[DifferentialD]", 
        StyleBox["x",
         FontWeight->"Bold"]}]}]}], "=", 
     RowBox[{
      RowBox[{
       SubscriptBox["\[Integral]", 
        SuperscriptBox["\[CapitalOmega]", "k"]], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            SubsuperscriptBox["u", "h", "k"]}], 
           RowBox[{"\[PartialD]", "t"}]], "+", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"f", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", "x"}]], "+", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"g", "(", "u", ")"}]}], 
           RowBox[{"\[PartialD]", "y"}]]}], ")"}], " ", 
        RowBox[{
         SubscriptBox["\[Psi]", "n"], "(", 
         StyleBox["x",
          FontWeight->"Bold"], ")"}], 
        RowBox[{"\[DifferentialD]", 
         StyleBox["x",
          FontWeight->"Bold"]}]}]}], "=", "0"}]}]}], ",", " ", 
   RowBox[{"1", "\[LessEqual]", "n", "\[LessEqual]", "N"}], ",", 
   RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "K"}], ","}], 
  TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.7934058654406652`*^9, 3.79340594214729*^9}, {
   3.793516592663563*^9, 3.793516593046156*^9}, {3.793519892438436*^9, 
   3.7935199342528687`*^9}, {3.793519970826182*^9, 3.793520020254828*^9}, {
   3.793577378796753*^9, 3.7935773795180492`*^9}, {3.7939232350902567`*^9, 
   3.793923255609562*^9}, 3.8009157786769342`*^9, {3.8009159835024776`*^9, 
   3.8009159996624527`*^9}, {3.80091636699536*^9, 3.800916388312752*^9}, {
   3.8009164465040407`*^9, 3.800916456519094*^9}},
 TextAlignment->Center,ExpressionUUID->"7f03287d-113c-4c89-b4e1-818b097d0d73"],

Cell[TextData[{
 "on all ",
 StyleBox["K",
  FontSlant->"Italic"],
 " elements. This yields exactly ",
 Cell[BoxData[
  FormBox["N", TraditionalForm]],ExpressionUUID->
  "f521b69c-fbdb-4f8f-83e5-f824cb656912"],
 " equations for the ",
 Cell[BoxData[
  FormBox["N", TraditionalForm]],ExpressionUUID->
  "aec5df47-1cc0-489b-8385-7eafcdab1ea8"],
 " local unknowns on each elements. However, we have not imposed any \
particular constraints on the basis or test functions, and, thus, neglected \
the issue of how to impose boundary conditions and how to recover the global \
solution from the ",
 StyleBox["K",
  FontSlant->"Italic"],
 " local solutions. In other words, Eq. (11) is not yet a method suitable for \
solving the global problem."
}], "Text",
 CellChangeTimes->{{3.793405971740942*^9, 3.793406081859359*^9}, {
  3.793519583563205*^9, 3.7935195869295263`*^9}, {3.793519658745122*^9, 
  3.793519662573715*^9}},
 TextJustification->1.,ExpressionUUID->"09c111bf-5465-4aa7-a380-6d86e85b3264"],

Cell["\:7531\:9ad8\:65af\:5b9a\:7406", "Text",
 CellChangeTimes->{{3.800917471886498*^9, 
  3.800917474840365*^9}},ExpressionUUID->"eed080de-103b-44eb-95ae-\
849d17d0a652"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SubscriptBox["\[Integral]", "V"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"F", "\[CenterDot]", 
        RowBox[{"(", 
         RowBox[{"\[Del]", "g"}], ")"}]}], "+", 
       RowBox[{"g", "(", 
        RowBox[{"\[Del]", "\[CenterDot]", 
         StyleBox["F",
          FontWeight->"Bold",
          FontSlant->"Plain"]}], ")"}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "v"}]}]}], "=", 
   RowBox[{
    SubscriptBox["\[Integral]", 
     RowBox[{"\[PartialD]", "V"}]], 
    RowBox[{"g", " ", 
     RowBox[{
      StyleBox["F",
       FontWeight->"Bold",
       FontSlant->"Plain"], "\[CenterDot]", "d"}], " ", 
     StyleBox["S",
      FontWeight->"Bold",
      FontSlant->"Plain"]}]}]}], TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.7934058654406652`*^9, 3.79340594214729*^9}, {
   3.793516592663563*^9, 3.793516593046156*^9}, {3.793519892438436*^9, 
   3.7935199342528687`*^9}, {3.793519970826182*^9, 3.793520020254828*^9}, {
   3.793577378796753*^9, 3.7935773795180492`*^9}, {3.7939232350902567`*^9, 
   3.793923255609562*^9}, 3.8009157786769342`*^9, {3.8009159835024776`*^9, 
   3.8009159996624527`*^9}, {3.80091636699536*^9, 3.800916388312752*^9}, {
   3.8009164465040407`*^9, 3.800916456519094*^9}, {3.800917494367774*^9, 
   3.800917555806346*^9}, {3.800917587405252*^9, 3.800917646033853*^9}},
 TextAlignment->Center,ExpressionUUID->"a4eda2b0-57a0-4ba8-b321-3e9488498ad8"],

Cell[TextData[{
 "Assume that the test functions ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Psi]", "n"], "(", 
    StyleBox["x",
     FontWeight->"Bold"], ")"}], TraditionalForm]],ExpressionUUID->
  "c57cd6da-c4e1-41d5-b188-91cd701df1b3"],
 " are smooth but not continuous or otherwise constrained across interfaces. \
Spatial integration by parts of Eq. (11) yields"
}], "Text",
 CellChangeTimes->{{3.7934061434845867`*^9, 3.7934062022469482`*^9}, {
  3.793519716533496*^9, 3.79351971669135*^9}, {3.800921069454055*^9, 
  3.8009210730449553`*^9}},
 TextJustification->1.,ExpressionUUID->"921537e2-fa4f-45c5-9dc0-15987376901f"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[Integral]", 
      SuperscriptBox["\[CapitalOmega]", "k"]], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           SubsuperscriptBox["u", "h", "k"]}], 
          RowBox[{"\[PartialD]", "t"}]], 
         RowBox[{
          SubscriptBox["\[Psi]", "n"], "(", 
          StyleBox["x",
           FontWeight->"Bold"], ")"}]}], "+", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Psi]", "n"], "(", 
          StyleBox["x",
           FontWeight->"Bold"], ")"}], 
         RowBox[{"(", 
          RowBox[{"\[Del]", "\[CenterDot]", 
           StyleBox["F",
            FontWeight->"Bold",
            FontSlant->"Plain"]}], ")"}]}]}], ")"}], " ", 
      RowBox[{"\[DifferentialD]", 
       StyleBox["x",
        FontWeight->"Bold"]}]}]}], "=", "0"}], ",", " ", 
   RowBox[{"1", "\[LessEqual]", "n", "\[LessEqual]", "N"}], ",", 
   RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", 
    RowBox[{"K", "."}]}]}], TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.793406247680092*^9, 3.79340628518605*^9}, {
   3.793406367600544*^9, 3.79340643212171*^9}, {3.7934064855289087`*^9, 
   3.793406546993697*^9}, {3.7934066316458187`*^9, 3.793406671916349*^9}, {
   3.7934067701104517`*^9, 3.793406770997471*^9}, {3.793520011441298*^9, 
   3.793520011680121*^9}, 3.7935773803206987`*^9, {3.793923262672759*^9, 
   3.793923264721114*^9}, {3.800917714481206*^9, 3.8009178065107183`*^9}},
 TextAlignment->Center,ExpressionUUID->"9f40c6ce-6302-4926-9630-15fe6ba2dbb6"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[Integral]", 
      SuperscriptBox["\[CapitalOmega]", "k"]], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           SubsuperscriptBox["u", "h", "k"]}], 
          RowBox[{"\[PartialD]", "t"}]], 
         RowBox[{
          SubscriptBox["\[Psi]", "n"], "(", 
          StyleBox["x",
           FontWeight->"Bold"], ")"}]}], "-", 
        RowBox[{
         StyleBox["F",
          FontWeight->"Bold",
          FontSlant->"Plain"], "\[CenterDot]", 
         RowBox[{"\[Del]", 
          RowBox[{
           SubscriptBox["\[Psi]", "n"], "(", 
           StyleBox["x",
            FontWeight->"Bold"], ")"}]}]}]}], ")"}], " ", 
      RowBox[{"\[DifferentialD]", 
       StyleBox["x",
        FontWeight->"Bold"]}]}]}], "=", 
    RowBox[{"-", 
     RowBox[{
      SubscriptBox["\[Integral]", 
       RowBox[{"\[PartialD]", "\[CapitalOmega]"}]], 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Psi]", "n"], "(", 
        StyleBox["x",
         FontWeight->"Bold"], ")"}], 
       RowBox[{"(", " ", 
        RowBox[{
         StyleBox["F",
          FontWeight->"Bold",
          FontSlant->"Plain"], "\[CenterDot]", 
         StyleBox["n",
          FontWeight->"Bold",
          FontSlant->"Plain"]}], ")"}], "d", " ", "\[CapitalOmega]"}]}]}]}], 
   ",", " ", 
   RowBox[{"1", "\[LessEqual]", "n", "\[LessEqual]", "N"}], ",", 
   RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", 
    RowBox[{"K", "."}]}]}], TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.793406247680092*^9, 3.79340628518605*^9}, {
   3.793406367600544*^9, 3.79340643212171*^9}, {3.7934064855289087`*^9, 
   3.793406546993697*^9}, {3.7934066316458187`*^9, 3.793406671916349*^9}, {
   3.7934067701104517`*^9, 3.793406770997471*^9}, {3.793520011441298*^9, 
   3.793520011680121*^9}, 3.7935773803206987`*^9, {3.793923262672759*^9, 
   3.793923264721114*^9}, {3.800917714481206*^9, 3.800917946713138*^9}, {
   3.8009229405721407`*^9, 3.8009229425468483`*^9}},
 TextAlignment->Center,ExpressionUUID->"e0ba8725-273f-4a21-836a-19572820553d"],

Cell[TextData[{
 "We see that as a consequence of the lack of conditions on the local \
solution and the test functions, the solution at the interfaces between \
elements is multiply defined and we will need to choose which solution, or \
combination of solutions, is correct. Delaying the details of this choice for \
a bit, we refer to this solution as ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    StyleBox["F",
     FontWeight->"Bold",
     FontSlant->"Plain"], "*"], TraditionalForm]],ExpressionUUID->
  "48eccc6d-afd1-4171-ac32-36654f38918b"],
 " , known as the numerical flux. This leads to the semi-discrete scheme"
}], "Text",
 CellChangeTimes->{{3.793406773606113*^9, 3.793406869787952*^9}, {
  3.800918211538515*^9, 3.800918216497772*^9}},
 TextJustification->1.,ExpressionUUID->"66686ce4-506c-45dd-a5d7-f19e2937f86e"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[Integral]", 
      SuperscriptBox["\[CapitalOmega]", "k"]], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           SubsuperscriptBox["u", "h", "k"]}], 
          RowBox[{"\[PartialD]", "t"}]], 
         RowBox[{
          SubscriptBox["\[Psi]", "n"], "(", 
          StyleBox["x",
           FontWeight->"Bold"], ")"}]}], "-", 
        RowBox[{
         StyleBox["F",
          FontWeight->"Bold",
          FontSlant->"Plain"], "\[CenterDot]", 
         RowBox[{"\[Del]", 
          RowBox[{
           SubscriptBox["\[Psi]", "n"], "(", 
           StyleBox["x",
            FontWeight->"Bold"], ")"}]}]}]}], ")"}], " ", 
      RowBox[{"\[DifferentialD]", 
       StyleBox["x",
        FontWeight->"Bold"]}]}]}], "=", 
    RowBox[{"-", 
     RowBox[{
      SubscriptBox["\[Integral]", 
       RowBox[{"\[PartialD]", "\[CapitalOmega]"}]], 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Psi]", "n"], "(", 
        StyleBox["x",
         FontWeight->"Bold"], ")"}], 
       RowBox[{"(", " ", 
        RowBox[{
         SuperscriptBox[
          StyleBox["F",
           FontWeight->"Bold",
           FontSlant->"Plain"], "*"], "\[CenterDot]", 
         StyleBox["n",
          FontWeight->"Bold",
          FontSlant->"Plain"]}], ")"}], 
       RowBox[{"\[DifferentialD]", 
        StyleBox["x",
         FontWeight->"Bold"]}]}]}]}]}], ",", " ", 
   RowBox[{"1", "\[LessEqual]", "n", "\[LessEqual]", "N"}], ",", 
   RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", 
    RowBox[{"K", "."}]}]}], TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.793406247680092*^9, 3.79340628518605*^9}, {
   3.793406367600544*^9, 3.79340643212171*^9}, {3.7934064855289087`*^9, 
   3.793406546993697*^9}, {3.7934066316458187`*^9, 3.793406671916349*^9}, {
   3.7934067701104517`*^9, 3.793406770997471*^9}, {3.793520011441298*^9, 
   3.793520011680121*^9}, 3.7935773803206987`*^9, {3.793923262672759*^9, 
   3.793923264721114*^9}, {3.800917714481206*^9, 3.800917946713138*^9}, {
   3.800918231424963*^9, 3.800918232040004*^9}, 3.800920087814599*^9},
 TextAlignment->Center,ExpressionUUID->"fdf02e22-0444-44eb-b5d9-57c52a97987d"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[Integral]", 
      SuperscriptBox["\[CapitalOmega]", "k"]], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           SubsuperscriptBox["u", "h", "k"]}], 
          RowBox[{"\[PartialD]", "t"}]], 
         RowBox[{
          SubscriptBox["\[Psi]", "n"], "(", 
          StyleBox["x",
           FontWeight->"Bold"], ")"}]}], "-", 
        RowBox[{
         SubsuperscriptBox["f", "h", "k"], 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{
            SubscriptBox["\[Psi]", "n"], "(", 
            StyleBox["x",
             FontWeight->"Bold"], ")"}]}], 
          RowBox[{"\[PartialD]", "x"}]]}], "-", 
        RowBox[{
         SubsuperscriptBox["g", "h", "k"], 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{
            SubscriptBox["\[Psi]", "n"], "(", 
            StyleBox["x",
             FontWeight->"Bold"], ")"}]}], 
          RowBox[{"\[PartialD]", "y"}]]}]}], ")"}], " ", 
      RowBox[{"\[DifferentialD]", 
       StyleBox["x",
        FontWeight->"Bold"]}]}]}], "=", 
    RowBox[{"-", 
     RowBox[{
      SubscriptBox["\[Integral]", 
       RowBox[{"\[PartialD]", "\[CapitalOmega]"}]], 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Psi]", "n"], "(", 
        StyleBox["x",
         FontWeight->"Bold"], ")"}], 
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{
          SuperscriptBox["f", "*"], 
          SubscriptBox["n", "x"]}], "+", 
         RowBox[{
          SuperscriptBox["g", "*"], 
          SubscriptBox["n", "y"]}]}], ")"}], 
       RowBox[{"\[DifferentialD]", 
        StyleBox["x",
         FontWeight->"Bold"]}]}]}]}]}], ",", " ", 
   RowBox[{"1", "\[LessEqual]", "n", "\[LessEqual]", "N"}], ",", 
   RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", 
    RowBox[{"K", "."}]}]}], TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.793406247680092*^9, 3.79340628518605*^9}, {
   3.793406367600544*^9, 3.79340643212171*^9}, {3.7934064855289087`*^9, 
   3.793406546993697*^9}, {3.7934066316458187`*^9, 3.793406671916349*^9}, {
   3.7934067701104517`*^9, 3.793406770997471*^9}, {3.793520011441298*^9, 
   3.793520011680121*^9}, 3.7935773803206987`*^9, {3.793923262672759*^9, 
   3.793923264721114*^9}, {3.800917714481206*^9, 3.800917946713138*^9}, {
   3.800918231424963*^9, 3.800918232040004*^9}, {3.8009198647276707`*^9, 
   3.800919997328013*^9}, {3.800920048495813*^9, 3.800920090942479*^9}},
 TextAlignment->Center,ExpressionUUID->"3feaf0c7-945d-4819-b090-7e542d3cbce5"],

Cell[TextData[{
 "Then, we recover a total of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"K", "\[Times]", "N"}], TraditionalForm]],ExpressionUUID->
  "0fe28202-9f66-43bf-b970-13d300c44f55"],
 " equations for the same number of unknowns; that is, we have defined a \
method for obtaining the globally defined solution. We refer to this form, \
obtained after integration by parts once, as the ",
 StyleBox["weak form",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.793406990518564*^9, 3.793407019524852*^9}, {
  3.793415624163178*^9, 3.793415624483974*^9}, {3.7935202141073523`*^9, 
  3.79352022935275*^9}},
 TextJustification->1.,ExpressionUUID->"bd8bc5e2-b1de-4d16-b7f9-88de08b23a02"],

Cell[TextData[{
 "This should be contrasted by the ",
 StyleBox["strong form",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 ", recovered by doing integration by parts once again, as"
}], "Text",
 CellChangeTimes->{{3.7934152963154507`*^9, 
  3.793415331566897*^9}},ExpressionUUID->"ce59f28b-925f-4c4b-8e10-\
dfa00d0d076d"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[Integral]", 
      SuperscriptBox["\[CapitalOmega]", "k"]], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
           SubsuperscriptBox["u", "h", "k"]}], 
          RowBox[{"\[PartialD]", "t"}]], 
         RowBox[{
          SubscriptBox["\[Psi]", "n"], "(", 
          StyleBox["x",
           FontWeight->"Bold"], ")"}]}], "+", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[Psi]", "n"], "(", 
          StyleBox["x",
           FontWeight->"Bold"], ")"}], 
         RowBox[{"(", 
          RowBox[{"\[Del]", "\[CenterDot]", 
           StyleBox["F",
            FontWeight->"Bold",
            FontSlant->"Plain"]}], ")"}]}]}], ")"}], " ", 
      RowBox[{"\[DifferentialD]", 
       StyleBox["x",
        FontWeight->"Bold"]}]}]}], "=", 
    RowBox[{
     SubscriptBox["\[Integral]", 
      RowBox[{"\[PartialD]", "\[CapitalOmega]"}]], 
     RowBox[{
      RowBox[{
       SubscriptBox["\[Psi]", "n"], "(", 
       StyleBox["x",
        FontWeight->"Bold"], ")"}], 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{
         StyleBox["F",
          FontWeight->"Bold",
          FontSlant->"Plain"], "-", 
         SuperscriptBox[
          StyleBox["F",
           FontWeight->"Bold",
           FontSlant->"Plain"], "*"]}], ")"}], "\[CenterDot]", 
       StyleBox["n",
        FontWeight->"Bold",
        FontSlant->"Plain"]}], 
      RowBox[{"\[DifferentialD]", 
       StyleBox["x",
        FontWeight->"Bold"]}]}]}]}], ",", " ", 
   RowBox[{"1", "\[LessEqual]", "n", "\[LessEqual]", "N"}], ",", 
   RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", 
    RowBox[{"K", "."}]}]}], TraditionalForm]], "DisplayFormulaNumbered",
 CellChangeTimes->{{3.793406247680092*^9, 3.79340628518605*^9}, {
   3.793406367600544*^9, 3.79340643212171*^9}, {3.7934064855289087`*^9, 
   3.793406546993697*^9}, {3.7934066316458187`*^9, 3.793406671916349*^9}, {
   3.7934067701104517`*^9, 3.793406770997471*^9}, {3.793520011441298*^9, 
   3.793520011680121*^9}, 3.7935773803206987`*^9, {3.793923262672759*^9, 
   3.793923264721114*^9}, {3.800917714481206*^9, 3.800917946713138*^9}, {
   3.800918231424963*^9, 3.800918232040004*^9}, 3.800920087814599*^9, 
   3.800920651493677*^9, {3.800920800441601*^9, 3.8009208184469137`*^9}},
 TextAlignment->Center,ExpressionUUID->"0d21d29c-8825-4c59-89be-1636360b8fa6"],

Cell[TextData[{
 "As in the equivalent weak form, it is the right-hand side that is \
responsible for recovering the global solution from the local solutions and \
impose boundary conditions. This emphasizes the key role played by the \
numerical flux, ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    StyleBox["F",
     FontWeight->"Bold",
     FontSlant->"Plain"], "*"], TraditionalForm]],
  CellChangeTimes->{{3.7934153500420237`*^9, 3.793415379045137*^9}},
  ExpressionUUID->"e537b1ba-6ff9-4034-8b39-f668787c6a0b"],
 ". "
}], "Text",
 CellChangeTimes->{{3.7934153919988537`*^9, 3.793415577741385*^9}, {
  3.800921029811858*^9, 3.800921034198698*^9}},
 TextJustification->1.,ExpressionUUID->"4765854e-7b65-46b0-b8c0-57aa6f257d55"],

Cell["\<\
Note also that in strong form, we don not have to require any smoothness of \
the test function.\
\>", "Text",
 CellChangeTimes->{{3.7934153919988537`*^9, 3.793415577741385*^9}, {
  3.800921029811858*^9, 3.800921029811942*^9}},
 TextJustification->1.,ExpressionUUID->"f9cdc97d-db31-40f3-9ac6-f09e5a7df47a"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["3. \:7f16\:7a0b\:8ba1\:7b97", "Section",
 CellChangeTimes->{{3.801174458133944*^9, 3.801174491233171*^9}},
 TextAlignment->Left,ExpressionUUID->"470b4276-6e29-434d-855d-702a153c6a8e"],

Cell[CellGroupData[{

Cell["3.1 \:521d\:503c\:6761\:4ef6", "Subsection",
 CellChangeTimes->{{3.801174468012841*^9, 3.801174494481691*^9}},
 TextAlignment->Left,ExpressionUUID->"eb02f5fe-6458-46c5-8b3e-434a3644ceae"],

Cell["\:7ed9\:5b9a\:5982\:4e0b\:7684\:521d\:503c\:6761\:4ef6", "Text",
 CellChangeTimes->{{3.801174506559732*^9, 
  3.801174510218598*^9}},ExpressionUUID->"b03e4421-db2b-444d-859c-\
ac06be85331a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "^", "2"}], "+", 
       RowBox[{"y", "^", "2"}]}], ")"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Mesh", "->", "All"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "10"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.801174516921774*^9, 3.801174555719198*^9}, {
  3.8011746734206877`*^9, 3.801174707290638*^9}, {3.801174762359969*^9, 
  3.801174822957075*^9}, {3.801174867729665*^9, 3.8011748824512873`*^9}, {
  3.801174921360352*^9, 3.8011749478416557`*^9}},
 CellLabel->
  "In[175]:=",ExpressionUUID->"ed1425ca-43ae-4be0-945a-f2b500a64ef6"],

Cell[BoxData[
 Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJx1mntwVdUVh4NiBgylCeGlVgQLQrEMII2DCck9gRKDWkqh6GBRSCAaQdCC
D/CBgjRUxA5ceShQJiIKQR7pqEgwyT0IpaRaJOGhNlAgGJUSE6JEKJhQ5571
rUyWbv7Zs7/zO2vt/Tvr7LPvDj2yHxqdc1lMTMyZVjExl3/fJm2M33/pUqJP
22HJoDUv95qW4me27x7umaC8/CfLX0lac8WQ5fu6HM8Mt1N+fZed6V27LRiy
KS7x2WmVscrn/XXKw7+uqB/yfjROK+UDOj2TfXTfsNStUf23EfiKlwd0vrH0
mdS3o/zzZr7gvvCJsWtTY6L/DhbDd+761ZnhC7ek5gf6ELxA9K8H8ZW/K/FL
gvF48LtkPBuC8Ssvk/GHg/kqnyPzLQ38Ud6nfeCP9D3rJ318xU/6tBlJo7K3
tMlXn+Ebc7/+5v5ePVLxGd41o6bPKw8tTMVn+I6JY4bHZR9Vn+H/arWkY7cX
uqThM/xgSd2Vh25KScNneNXRuDY738hIw2d4nejxGV4t8fEZ3iDjwWf4PBk/
Pmt8mS8+w/PEH3y2fuIz/lGf6OD4SZ92htQPPsNf2/TmV22Ht0vDZ3jnxjeH
lE+dkIbP8Bfzzqwd2O8V9RleOuvkO/s7lajP8DvGPJHdOHiv+gyvFD0+wyMS
H5/hY2U8+AzvuDkYPz7Di2W++AzHf3y2fuIzPvG+4zOc+uR+OH7Sp+39yaQ2
cR88qj7DrxF/8BleHP/cp6tyLw/hM7zbn2qTG6feEMJn+Nw+o78bt+mmED7r
uiV6fIZXSXx8hk+W8eAzPFfGj89w/Mdn9U38wWfrJz7jB+snPsN53/EZTn0S
F46f9GljPxmUPrzm6hA+w8ev6JcyNzxWfYafnhq/+/jpWeozvM8jt7w/dOd8
9RneKHp8hj8l8fEZPkLGg89w/Mdn+KMyX3xW37ICf/DZ+onPzJvvET7DWT/x
Gc77js9w6pN8cPykTzv20ls3nstcoj7DF/UYX1V/7i31GZ7x77zHR77qq8/w
fNHjM3ymxMdneFjGg8/wb2X8+AyvlvniM/yXlwX+4LP1E5+ZH993fIbzPcJn
OOsnPsN53/EZTn0yDjh+0qctyq24cmnCx+ozvObJ3u+k33xSfYbvEz0+63OT
+PgM7/9gMB58hmfJ+PEZ3nN2MF98hqeXBv7gs/UTn5kH+yV8hvN9x2c43yN8
hrN+4jOc9x2f4dQn44PjJ/2W7Rn1Gd4kenyGT5L4+AzPkvHgM7xIxo/P8HyZ
Lz7DU/8T+IPP1k98ZrwFpp7hdaae4ZWmnnU/a+oZ3mjqGZ5v6hm+z9QzvMnU
M+1JU8/wXaae4UNNPcNnmXqGp5t6ho839Wz9xGfG9a5Zn+HVZn2GR8z6DK8y
6zP8KbM+w2ea9VnXV7M+wyeZ9Rm+y6zPtGGzPsNLzPoMvzah5foM77Kg5foM
H2bWZ+snPpP/LrPfgDeY/QZ8rNlvwCeb/QZ8hNlvwMNmvwFn/cRneJbZb8Cp
T/VReInZb9CuNPsN+Gaz34AfMPsN+BSz37B+4jN5ysz+GT7P7J/h7CfxGZ5r
9s/wyWb/DP/W7J/hWWb/DC8y+2f4LLN/hlOfzB++2eyfaQvM/lnnZfbP8Bqz
f7Z+4jPx5pjfg/A683sQXmx+D8LxH5/hj5rfg/Bq83sQzvcdn3W9NL8H4ayf
ul4I533X90f4AfN7EJ5rfg/SfmN+D8IHPdDy96D1E5+5j/MQfIbnmfMNeJ05
34DPM+cbcPbz+Axn/6n7ReHsl/AZzvcdn+F8j/AZzvqJz3Ded3yG15jzDTh+
0qfdY843rJ/mvM5znNd5jvM6z3Fe5znO6zzHeZ3nOK/zHOd1nuO8znOc13mO
8zrPcV7nOc7rPMd5nfXTs37ujurrI7RFS49dfPjvRaHSaN7Dyl/ecKzt0WPl
oeUBD8Hzhe8I+sqPSBz6xCMOfdpF86dcfPyDLzUOvFD0xCF/vhkP7VoTB77d
xOH6ETNfeKGJD99u5ksbsyyI88Tsn57PDHfwaZ9bdkfpA5/HaT3Db50wp2Do
/OIU6XsOvWf1jH9l9Pl/FzmxoOK6oWULdV7U754/lr/Z9ZrXdV7oLyWdGZ2w
dK1y9Hkvdt/9v4ySEDriER8dnPjUP7z1ig+nThx5UL+b8JrkyAO1WXvVL96n
88LJy7gYp657whkncclPXp4X+hVSD/S5DqdPnHanJl5o6lvT/FyFd5f4Wvcy
P+aFjnjEWRzMS/MMuDmYF/Mnz3kTB97dzIt4xKGPfvifg+dFn+twU5+eoz49
R32qnj51avT6dxAbx3L9TsnziRHftM/vZeF6Psw6JPVAn+tw+vgRNyOoW/pc
h5vx67zM+6h8YdTfmtCaoI3csfqlURe/K9M+1+GfJMRP7jki0aetbMwa0Sqn
NEX6nuXMi/cjVp47nPdjicy3ItrfE6E9d8/bkSNX1CqfF7ShJuHUB37/QuKT
jzzk1fN/4eQlLm3re4P4xCUP8Y0PnsMH5fr3AsmbXvte2YhTx7Wvv7uF837x
vn4s7xfPJTn6PL+JrH9s2YsV/bbre8196Bk/vK+Jz3U4dcV42qcEcehzHU59
DAjGE/pCxsN7gk9bT1QdPhm3TH0g7y3GB8Y10IyT63DuJx5xeH7UC3UC531c
0S1pQXVTbWhbdD4nVF+XfPh3tw/7QscDH5Ew5p4tmadVT7wG0aPjOnHQwa2e
PMRHD/+tcOpJz7/FT+ZDvMUyL/r/DPJGjpm8+DfE5EVfLXr63HfMcO5DT1z0
xIejH9pyXrpeMS/6zBtu9L5Dr5x85CcvvjGP8teqx6e3/lL94fpiUyfwE6Ln
OZGH56W/RyRvkawz3I+eOkTHfejNe2R98KxvjJN288Ck1dmxVSHWC9YP1g3m
T7tU9LzPvN+818RF/6ro6XMdvinaLw/dHZ3XttBLe+9ff9uir0Jzo3GPKC9b
Nbj6kcv+q/4QB5/RHQziRZ6XOPCCIF7kPYnDeIjH88Vnruds2NWz6efVGpc4
b+w7mpNwf/PzRT9d9MwL/RbR4xd19FF6764f1lbq+gmfWXco/vNVVaEboz6f
DF0I5hHJuRRTf/6JavWZ/E9LXnwjf7HJS10dMnnhj5u8+Jdr8uLTTMmLHp/6
9mjYM7j3Z5oXf/ZvHbPp7XWHlBMnY/D5ztOzPw11mtZpQOW2Uxrn+nf6n742
5ZjqeV6n+163es7hI6pnnD97KO7uj9Yd13mR96jR81zuu3PDmsKnK/W7Sdtf
9jPkpc0VHntv/NXhdYk+bft/TJj1ZPayFOl7lvP8aMMNd059cE6dPlfGv1w4
fdqVwk1ez5FXOesD97WaUt9h1Pq5KcQlv82LzyOvfPqqs6V1Wk/oF8v7Rd3A
z23omPZZpJZx6veIvMRFf7vEp89zz5P4cN6L+pbx9btAfPrkhxOXeMSHM2/W
DfKhJy8c/Vnh6PBpsVl/4C+ZeeEfvqGHX/zx+fqO+SonPn7jM33y8HxNnahv
5jn+wE/iFXeM3Xxo71fN/09D5rtHeLf58Q2ZFYk+7W9Gl5SPL5qbIn3PwdF7
Dr1yxs99SQc6LVq+4zHV63lbS671A6ev9/243nfoLfcdcTybt++Kxdk9TyX6
tOmxH6yZ5Cv3HBy959ArZzzcd7gsuc3cpBmq57rh6g+cPvc59L5Db7nviOPZ
vIX5o64Kn030aQtmH//DxpuVew6O3nPolTMe7nu21+9nlN32sOq5brj6A6fP
fQ6979Bb7jvieDbvjNcLz2ZeSPRpb7hz9tdxtyv3HBy959ArZzzc19TmhYHh
8umq57rh6g+cPvc59L5Db7nviOPZvAfXT8zu2Zjo067c2H/d35q55+DoPYde
OePhvls7bqvdcH6a6vVcqCVvPocRTp/7HHrfobfcd8TxbN7WBYOvCjcl+rSD
lsYuLWzmnoOj9xx65YyH+y722nxD7l+a9Vw3XP2B0+c+h9536C33HXE8m3d1
wbqzmd/raVuPS247pZl7Do7ec+iVMx7uu3Ag5/mKcc16rhuu/sDpc59D7zv0
lvuOOJ7N+38eqRrM
    "], {
     {RGBColor[0.1, 0.1, 0.1], Opacity[1], EdgeForm[GrayLevel[0]], 
      StyleBox[GraphicsGroup3DBox[
        TagBox[Polygon3DBox[CompressedData["
1:eJxNmQnYllMTx+8bKTstZJd6Sy+los1W2iWlpAXtSdKmkqwtCm2kKGlBQgml
UEkIZYsWSVrIVpLw2enDN7/v/j3X03U1nTPnzJn5zzlz5sz9vGW69mvVd78k
SdrsnyTxL/kxCP6ooJJBBwQVCTo+6JCgQ4NOsD0sqESSrUOuuGvhS7nuwKDj
gg52/TFBRYOKBR3tPPyJ6js86Nigg1xzYpokP0f7U9BpQaWdLyNGbJ5qC5Zy
4sb+KUFHKlfWeeYKnMd+RfWBsbxjYGwUVCOoZlAFx0pLxcRX6Dr25nRb9qaK
tsFY1RaMtfQBm2cGnaxcNefBeJZtOe2X134OB+vPdh4/Krl3JwXVVje4zhXT
GUH11cu6OtoG4znK5uROUNcFQZWVa6xtsJ+nHDYv1DewN1B39aCGtmCv5zy2
62qzqvMF+tZE3WDvG9QxqFPQxfqAzUuCzhfXSWlmo3VQU31Arrnz+NfCFpu/
6H+roN/EelnQpc7jx+Xi5sxbOgb2No6xB38G/eF8O3FfFNTeFixX2IL9qqBm
Yu8oPnB9rb3u7GX4cnrQF9H/K+hLsXVSFoxttY+9vUFf6fvV6gHjdaHjvKCK
QT3FB65rbcHVIObqBxUPuka9yF0XdKV4e9t2CPon6O+gzsRBrNkRbZegPs7j
U/8Yvyro7KDLgr7Rr1PTDN+goNtcw9kODuqRZPZvtAXvzUG9xHKDvvVwX2t7
xkOUvda5NvpQLmyVDeoX/RrR7gJX0K36g+1b1A1/X8jUCSoTVDJod4wNTLIc
wT09JehOsYLx+JApGvRd9ItFuyfaYUGjxIrcSH2Fv8t14B2v/7cHjdFPsIwO
ukm+auj8PtrhQePEzZorY/zooB+iPy1orPOTgu7Q5v22YJksbuwfnGYyE4Me
cJ65B4Pu1v509YFxqmNgXBo0N+ipoIccGyvdIr4ZrrsnqHzYujfamUGztAnG
x2zBOE8fsPkoZ6DcbOfB+LjtZO1P1X4OB+ufDJqiH4ekmZ5Hgp5WN7ieFcvD
QS8GPeG657QNxmeURe6g0DNB+QXqQ+4lbYN9vvPMLdI3sC9W95ygJbZgf955
fFqoTdYsUx94X7YFy/agtUHrgl7RB2y+aguut7SHneWuQ+415/FvhS02Vwa9
4B6ssmX9687jx9vq48zfscXvd23Bu941bwStFjf237cF7xqxguU9173smkXu
xwfKIvex/mD/0DTDuiHoI3Gvci9WaHutuuHJPeRU8ulGZdF1YJrdQeJ+izjA
u9UWvNQm1Anc9c36idw258H4qS0+HRs6D0+zPfhPktVG1BOfOQ8uap0S6qUG
KilP7VNKnrqGd5X3lVqHWoI6gzqitDy1DrUEtciBzrN+k/vE+RzkPGs+cQwf
flL/4eI7Jclqi1ytlqvdjtfGTvJK0Jdpvn4qI1bqirLa530uEF8FefRSF1QW
X4FrwHSacmCsKI99aobTxVhJHhyFyoG3inpztVRhkq+fqsjzDtRO8nVSNW2f
LQ+W6vJgrSEPDmoM6pjcm91OO+eqF0znyVfUTi33ppo48Jka43yx1pEHX115
ZKkdLhRTfXkwNZDP1UkNxNhIHnyN5bHdRL62uJuItak8WC+Wr6rNuuLjjjRL
8vVQc+epX6grfrFfTx+au6au8y2SfN0JRmqnVuIHK7VHa7G2kQdrW/km7jE8
Ndtl+purk9qLj3rjSm13kAdLR3lwdJL/wz742qdZTUbtRA1F7UR9Qh1FjdQ1
6Lg0q5lyNRd1RXfx9ZAH3zXy4O0pn6ufeoqP+qFXkq+TrhNfH3nw9ZX/234n
9VIjUBs0SrNaaidYo20eVIu8FTSQ2s06ivppoPhYNyjJ10zoIsfxtk4U3xDn
qBt4l8eJj/f6ZvHdKt9HOXjqptvEWs7aiVqlQ5rVUmlQ3aALgopYX1IvUatQ
O5FzR4hvpLjAO0oerHfKg+8ueWof6o27xTdGHnxj5W/Vj7FJvtbB5+/0EZxF
rceoQ4pZR1GLVEuzuoraiRrqYGuFXtrDPm81dcRU8T2gjV+NqZZimqocmB6S
Rxc1wiP6wPwUsU5TDuzT5akxZoqNuoVaYoJ+zFCOs5ylXmqqGfqVq6VmKcu7
/3SSr5lma5s65AmxzJEH61x5cFB7UNPwNvMm8vaB61n1gmu+/HTtzHNfZosD
nxcoB9bn5MG3UB5Z3vxFYqL2eEFMi+VzNdNiMS6VB99L8theJp+rmZaJdbk8
WF+Rf0ybC5N8/fRKkq+NXnOeuuR1MVFvvKkPr7lmofMrknwNOjfJ11Irxcq7
/FaSr5/eTvL10ztifU9+sbKrknz9tFp8H8hje408WNbKg2OdPLjWy1eIODks
zddQ1E8btLFRHpsfy4Nvkzz4PpEH32Z58G6Rz9VPW8S3TT5XJ20T32fy4Nsu
T920XZzkXnIw78VNMV7Jb97fkyxv865UNoeTt09OsxzOm1Hdfreg/6qHHE6N
RR3A+1zJ79POQcd477mj3aN/RZrpHh/UJOiUoAFppovv1f39biXf/ptkOZBv
yQPMh0ODOka/VVBBULugwqBvY7xPmq0nJ1axHeFa8hQ5ijtOn7tc03yFzsvt
kxMKzV3DgkrZJz/cnGZ68Ye8ybcR9/6EGDsyzdejtNS0Z6XZHLXqUWlWF1IT
UnfRP0kf2av+jv3sOO86NQH1wK/2W3lGv3kWnM9fntFX9nPv+m/q4DeNX5P8
7y2/2+e8ea9bSrzll6rzd/Wgc69n/YfynT3zvcZPj9DfMM3i4htjortyvLud
bP/xHI/zrNHZ17l+7sE/rjs3ZM4J2s84+leZ04I/wm+AXY7318Yfrr0o5hoH
lQg6P83OODUW9vcd32VMEA+cOe8WMXCDbz5y/M5wgOOd1VXE95V39g7jiLXE
0v3RTgxqHdQpqGWa/QaEft7Ce42lg+yXNk+QH7gbvIm8Od8rT+zdGe2ooNra
O1j7h7sP25P8NzNvBcR79kiS6SYXkUvXu4a7v9I5xrmbyE8wZolhvskuTLPf
eY+yHinrXnWNtoXn3S3N6qcSvudHi21MtKOD6qGXvQm61P0vqQx4S2k3VxPc
576W9IyoGY5R5hD7yDRNszzL/t0adIlY9xpbubxE/2vP+Xjv/8VpFkPHeqdL
eRZFleGsqY3Jd8T/UermXjZ0jrvFfT7B+35LtM2854P0AfzoQJ47wm99V6fZ
732T2EvjhFgtY3wO9ZzJafey7+4bNSf1J3dqoP1Bnkk5z4V4pt/Pe8Icd6uu
+siN5Lfyxip1C/2Zxhv5brgxWcG4PNa9Im7IsRWVGRZtG+W+0k98HB5tW9fg
L3mdupr3he+BLuYW+uQfathC47xvmuVubHR3r3Yqe4byfF/wrnDH2UfekK7m
DWr4/sYzcfODtiprlzfnTPu5twFfyOdV7Vd1LfHGb31VjNURaXbGZxkzVZW5
Ptpr0yxPka/4bkjck+pi47fY6sYkZ1TDGCM/1RAz+aGm+8BYY+NhZNAdxkRH
2/0cq6e9IUE3ptn72V8sYOiVZvnnnH3wMd4vzfaavNQ7zd5Q+vz+er52a9of
Zt67wH6hfWKpjGtSZekXcb6uMhPtMz5KDOC/K83uLTmmi74U98w5+/r2GxgD
d6fZXUCuhfPsbQexsp+jlf//b+lp9h3X0DNv5D43sY/Obu5zf8+q4T6xVMk4
IX6bKI/sRfo7Ns3uAHloXJrFPXllWprVNNzZe5QnN5IXyA/kVnIJ+epnY7iF
mBvaB0Mt8XNeU9IsV1zqObZ0D/vZH+A95m6Txzp5psjwFvPtSs6Ynma/s5Nz
CpT51nzeXAzkFeTJM430Hfzcc+47bwl3mzvO27PHnEI+eTDN8hf6qTW4s9QX
/B2knbb+9A539l5e4T6faX+n7wB3b4R3lD53mRjnLnGPethnf7gvHYyBmvZT
/evoPuTuD35ztu3Fxv51UoYYJtaJc/aji3tSz34tdSLPfblAeWK7UB+HJ56h
a9nDbsZYY/sl9LW7/ta3X9lz6Gos/GMsksuJ5x76uzJoRdDSNMs9PY0B7LPX
FW17ixOd17i2h3307+9aYqS3azijQerl70e97KO/lTq/dd96OT44zWomcjf5
h5x4jrb7imew/QGu7Zfm/zbGut3m/37KXKUuMPOOD/Dcr3ccbPcbbwVivN7x
a8UGBn6/GaCPPeVz/Ru01cc++8Fbc5OxgZ5BaV52sPJ97bOOmByi3YH2sXeV
c7nxQfYrqb+Lbwhvzw/eHe749dGfGe3kNMuPVZQhroaoCz28Q7xH5JWHg6am
WT6aEfSAc9Rg5Exy2AT1k7NHum/YmqIM/Qu1SX5qqj7uPXmN/Ma9n+i+s+eP
ao+3kfx8h3poqVm5c48EPeT6O5WpZTtSed6EUY6PUq6WGEeqZ1aa7ctd4r17
H1v0uaPUS+P1l3dgtP3R7gX9x9yvsa5hrrg2sL2f+sc4P1695F5yOzmd+3uR
ffaziXKMz9bnccYBMUDc3qYeMMwLelIc1IH3qWe6+1vEcyAGeCfqKMN4XWUK
PM9Jrh3qubT27ImBZq6b5DgYpujL7fbZQ/oPKjM36HHPlfMnrtp4fpxjW/2e
pp6hrkUP4xPEM16ZEtqaoPwIdYPxqaAnPNeJ+t9azNP1l3tEzqru2c90b/gO
5o3hm/VZdREjLwQ9px+P2mLvmX3Gng6a4znN9zwek5+jnzPcB/ZxgWs42xeD
FmrvYc9xqrafEt9cMTyu3nnKzlYPdpaKFVyLgxYptyToeeVe0l7Ov4Xu1zLX
gH1d0Ptp9ia87PoF4kB2snoXifVp9c9R74vqfiPoVfW+HfSm+l4PekW5+c7P
08YS9a1SDrxvqWuZOl5T7hn9nWu73D1arN1FrnnDMfZnhbIvimGhY8sdx+93
HFsf9IFYlmj3eTG9ro6XxcT82qDV8muC3tM2Ot51zYfO4dMG17A3m4O+CNqo
3Lvie0M9r7pmjWMrxLlce6vF90nQR/qxStvo2xL0setXOr9C22vVsTVok/w2
dRELXwd9Lv+ZuvBju2s2aGejuD/Vn/W2G51/X2zg5u+SX6prnbqZ3+E+bBbH
Jn1bI372gjxL7A/bxwb6yY/cA/LKLnHjx7fqBdcex+Nf8k3895U+7BYT/n2X
ZnPbxfeltrcqv0m8n+vPNnUy9r22jkgyezvE9416P08yGzvVvd25rerYJbYf
lPkwyfZ6i3vwo/Lo2eC6ta7dI6Yd4vhCHbvVs8O9OELff9Sf/wGbtryw
          "]],
         Annotation[#, "Charting`Private`Tag$141760#1"]& ]],
       Lighting->{{"Ambient", 
          Hue[0., 0., 1.]}, {"Directional", 
          GrayLevel[0.6], 
          ImageScaled[{1, 1, 3}]}}]}, {}, {}, {}, {}},
    VertexNormals->CompressedData["
1:eJxtWnlczVkbT5ZsKYaSJWsSQg2u5nbvSaamV5QWSgaTJSqiGJKtRJRoMNYI
t6SSfe9WP9JkCqNIZWtRxq1UkrLFfX/n3r5X97xvfzif8z3P+T7P+f6e85xz
7seg+cudF2lqaGi8baOh0ZZvXfI04zcJJFK0Goq/t+R8WOitzSaC1PehSQtu
txemAjeRjPRrG3c59eb4jNSYV6kq/GKXjy5hvxukrfA/UPzYdlga8HNluqe6
WyxKW/bBTW9fRqAK73rWLWVx8v60A2/kE54VXFLh/D/Dd5glpZkO227vUV3Q
Gqd/wTkOkc2+euWt8YG8vYi1t+kpjuX5RSy/VZnuaj4ekdZuf7V4Igrbvdn6
u4GoU5cLavGLTmvWa8ZdtmTX62X4oinERGDpUfWHmj7x403+3iiQCFk9oSN0
BX4zdHZkiWleKlrgbQKXXrOIcUj79/SEsLq5zqp4nCZ3PCMvu5j2KFHjltw5
VYVnnajuMmOdPK3H6zGBM9bppAMvaD7s3itvbPoAjw5+xy3+o8I/yuXLVi6b
nG7dc5vEdOiy9Hdy+len0tk6Zfu+hp8D05+34Lz9Yt5ezNpfau7zC88vZvnv
2++/7bpOLhrXqYdaPEesO/7Gxy9i4xcf+/vrxBgHEbveXmL9pmLTPEtWn+Rp
a/pktBda/o+eLd8JeQocvNAV+O+WcpMPc3PT0ALvlOJuMd1sXPrmYuM5cSIL
VfzB5VfkYx4Hpx+t3VT2WTsy/f03pQ6G8k3Hrny5kC6OnS6MDcpKX71Mice9
/OiyIiszfcM73UtdP1am7+rcqKZzRV2q0aHjjemDM1/C3p63F7P2d+5O3cnz
i1n+Zcafi/h4xK8+FrxqHc8vN3q/djQbJ/aYZTmrdfymyalZTXNzRcm2M41b
r3fS9j/La+c6i1h9Vpln/Hr0Vaolqyf2OfY9cHxX5Clw6AhdgafvbXdNZ/Cx
dLR+H5Xxn026klPVUJn+xv8f8su0epU+XXzFNZopfTlJTL1h25SRXP2o5rcU
jxx0eNbXtmO5pCadNV/bTuc+WAXWfWuls2Hn4iDdMx7cs+0LJn7l8YuDDs/g
7cnZFns57H3FJTw/sZpoP4DyN7bwL639tIuPR8zG0/VTEuHjFrPxT9KdfTNW
ZCHOCbMZ13q9KdXtbn9zThWx+hhIpjzItx0mYvVE3UQdBY59jn0PHHmJPEU+
IG7oiviHmPYr2lNkyaH16fn1AMXv2mwx75fnx2XMNRY87reG8+yknfWAx8dp
lp+ecTeE6x0qOKJx4TB3xyvUWtb8XWfBAst7PoJ4zvvM6r/tPtaRdfHlJ3l7
crvDOYW9ZajSPijuWh+en3Te9B9Lyr+mu5I/3NMxio+D6IxWxrOilzKenuK+
n2yn1YvPt8Q/tCX+FS5eAn694kzjILX1Do3y8HRdpyN2GLFKTZ/o94WyvRmB
IlZPnBM4l4CjrqGOqupVyz7Evsd+RF4iT5Gf0BG6Qs/AaO2GG5IEDm3FDwu6
tK2pI8avNgYYnpVyvwpiggzP3uUc0rRyGrt+17l+20+Jl20KuOvBkR3r5TXk
te8xak88x2sFUvsmi1EK+8zwXSU8LxkrDKuh/P4LViv4a312afHxEKsbWyxo
PMMjlfG890m/oJkyksxtid/JVBn/1oW2FyRBWeLli7z2t17vb2eidx2z+I/4
RPZrt9b61IbOsnlacEnE6tnqnFac88BxruBcwvmCOog6inqIfY59j/2OvESe
Ij+hI3SFnjtcHNeXxj7l0JoNnCoxL64ktyKCrcymTBS3tXJbbPa4glP2ZWTP
8abVvB0RmvptoPazEufHUvuoIdd/4/nJseGZKyl/YfSqu5R/MHnnycdDOtZW
naDxzHwdpYgna1+4gI+fbDNSxl9tp4x/1ejoH/j1itn15misPj5q6DIxq8+v
b13HzaouELF6qt+TNIJVOrec68BxvuMcAo76gLoJHPUT+xw49jvyEjjyU13H
iWLoqdiuckexelsH+5bvYKeybyY9D/H8qn3gUrijC+XXqimI5uNR4XqOBxXx
bKwf0Z2PX4WXxyjjv/JX6fGDxxvFwFFPnjtJ0t/9HKjCoU/uJvkPvJ4iVs9W
+ay4h/6ffFbcm/5PPivOeXxfnEM4l3AeoW6ijqJ+Yp9j32O/Iy+Rp8hP6Kiu
q4z862UeRO3Qwn6HkeMCms9lJ2JpPhOzAdMV+XzH23s+zWed0VWnaDwGh5T5
/Of8q4p8TjM67ELjr//ffFZbb6t8VtOnVT6r6Yn6jHs9W59xD2XrM+5NqFc4
13HO43zHOYRzCecR6ibqKOon9jn2PfY78gN5ivyEjtAVeq430XpKedF+uxiu
4A8NUtZni3DDITSelBPKeJpa6rNTS/wuTH1m14v6zOojne6lqM+snngX4Z0E
HPd43OuB496Jeyh738C9CfUE5zrOeZzvOIdwLuE8Qt1EHUX9hM7Y99jvyEvk
KfITOkJX6PmgqnAfjQOtnZ4ynuA4zy/0vrGsJX72vtEU41/aer39op7OofcN
13xDNX1w32D1xDsT707guD/jnQQc93jc64Hj3ol7KO6fuCfh3oT4ca7jnMf5
jnMI5xLOI+iMOor6iX2OfY/9jrxEniI/oSN0RTxZf30Q0LjRIv4JFgLF/blj
WPuXrdd7/emP2fT+zOqD+zOrJ96DeMcDx3sQ707geBfhnQQc93jc64Hj3om8
QD7gnoR9yb4HURfZ9yDOpaHMe5C1xz5n+ZGXbDzQEboi/uU7BZl0nWiBD/EK
eEXfg6w+eA+yeuJ3EPwuotK/5d2OdzxwvDPx7gSOdxHeScBxj8e9Hjjunahz
wHFPwjnD/r6Bc579fYO1R91k+bHPse+BIy+Rp8ChI3QFDl1YffD7BqsnflfC
70zA8TsI5gHHux3fDTjemdg3wPEuQt0Cjns87vXANVruna3ObeAKndXvTd9/
r2PtcQ7hXAKOusnGg33Oxo+8ZNcLHVl9oCOrZ/bNP/x0vHM4tPrdzrxZH11L
9m6Z0Svt4F9cseHbop3mpZzz44jN23SriU2ztgmPE59RIQrcYWVeCMVvbDPy
5eeT6NPXFDxGw58qeDAffOA5PH7wg6MVzzi0u0xc3OvNK8nAqTaPeXvSFBHW
n9ov7ee6hdrDH/zDb59fOj/i56tal9MmMynPyekDFTzb5xgMpfZ6TnoKHsSH
eBEn/ME//GI++MBj+HWRF52Pdv4fu2ooz8lLBpeHmVmlooXO84bmyRIf1ks7
2DdMzYh8q/q99EREbHvezpK1/yb16cXbC1n7mUs2TB6TcITzHq9/Z33ZKe7G
wasOJQ115GiCSbL9vKtcgj6pX5ifxmV0aLctNoE/70Y3FD1wPMytFkd9LfO/
yV27cbjL/Bt1xHJwRNvNeZe45tSf9DbnPeLOiDQT17rUEvDCD/jBCz/gb/fY
zGPL6hHi7G/6Sxu+lnHKfhWpSTuZuMfmAVnsE6A1elUhd+vM+f5xKW/I2A3O
bfg+ia8/dIEf53YN9zKkOOJDvIgT8SFexKnub4QYfsOOWObTPBhbWnef5pW/
j9iN5gP6GAd+cHT3pX4dy0ih3qo/9fXtxcq2muQKa5bw/MRJd9avlF/ZVqnW
g/VhXZivzldNxm9YUcWvi9jsFtXz6yK6NuO60nVh/dADOsCfuv8q1XzwgedR
/uIE/nuR8gVFhP9e5KX7P4rvhT7GgSPPkHdsfnpMu3j8VuRbIZufrD3skKfA
ka/gY+1ZPPqT1iGqm5F79kJeN07ZrybqfXsx8A1tMjvz+UAEXtq6fD4QF41b
STQf0Mc48EmfzhfxeUvuu95M4POWDBL4KPIWfYwDR/zsutBn9Zk7x3hX4cl8
Mub2vEi+5XYHRzdK1r5R9TEO/J84reEBTu+kaMGzUWo509/pnZDF99TektHv
Pun1WDndHweqwhX7onrN7B50vZdjw3vT/bH1Q1ACXe+qdmGFPTwfcWj3DTTt
X171hnhMLsmn/ZXDcur5loyzn2hAceOoiGqaTxu7LH9C951d97GKvII/+Idf
+IN/+DXUtqykvGi3lIr0KT944Qf8WCfWzerA4tUjV0QNXf2ShF2IPjh09UPi
kf+podsqmaqPceCGCV7n6f6y7TtQsV8dntkr9mnknD6C89JMLnNJxtbbHe5z
L0riNNZKawnsMA/2Vf28dvL8XHbMqj94fs78gXMj5Ucf48DvLDTToPu54InR
aVofpu/qPoDyoI9x4P06HBrNx0P27iAr+HjI5ls2mjSekzd3mr5wyJHOr7MS
z5ibrcqHFr+E9WvxWmOvQpdF76gOXJZT/HuKo49x4My6CHiQH8gX5MmTLWX1
M9/kEy3XgJ5PRQ5iZVtLbvU467dxcjlxk4cYuZzL5noayb75SWVkaptr1s/6
lpKPlaPNn/XN5fK3jdnmvrKK9E4as4zaBzR/duXtSabp12Zqj/ngAw/sMA/2
4IUf8DvaNk7hcdK/fedJFL83ZPkWinNRd/q6zs0WQlfVPXCKoQFdT1L/kgJ+
fZyyX0vsThWb03gmPJmxlPfLpR1/Iad+LTdo/0T9TpPNFvH83LOHJJzyFxpF
T6Fxvozb70vte7XEj/ngAw/sMA/24IUf8E/w2WpJce/TK2zp+gqPlyjWi/wg
bsY1zxxyVPsFfawbOOxZHWDP5hv8wT/89looP6Tx1k7sFeD9bKd2Bafsy4i6
jg5i6Dn7snkJb0eKvzTsp/OUrUz1nfDd8L123R+vTeu4vP3kjvTc/zhguaKe
I//U87FWZYd5sMc6WR3QZ3WzrasRdvJ8oWoNo+YHd3aTEdQL1A9V3VDacWhh
j/2M/Y19HWg2QUR5i/wGCqh9VWhACLVHH+PABe3HDXHv8Zy8jQzY8upqBgk4
yxkXzePvUUKtprNJL8mXkbsLKl6kkWBtO7v71ytV+qrrLSNEw34tnT/sYmAP
no+Luec+ivIMiFnRQOeXj95dz/Nx025+m0J51L+rnRjfV5pyds8DjUKuo4bO
hWirMm64559Pj82TEes3/Qf8szafay5JuTNSt4w7mPT3plCdSrIyxP4ob08G
3ig9R+3nz6gsovY6bnNG8PbE3Doxi9rH/zNhI7U/1NlZzzysnBy50VzeT8Rx
47xG9u6lXUk2WLustzarIFf0Rq2wNsvkTH/qHeXmICNBUle9PesqSFp8h9L4
Jdc4szkD/QXeMlL7odNF3h+J/Kn/Eeo/qmtiIfVrNu1IDu+PlOY+MaX+s/rl
BlG/p2brKfwumJ7UzPslBg+L9alfA6eKtdTvo196hfN+Seixhwq/Z84c1Kd+
Y+8IjE8tuUZeBMr9qN/H4omXqN9HK4N3U51cers+oX4n3Tzwc7fB5aTyx7wZ
M7xyuZ3aH0OfTJORCFffMwsPlRCn9RkPJI0PuQdTHZ9xJlWk28JBuiPavyTt
upr20H18j1sSliSz9q8kc35v/PGqWznpuElDaJeTzV2WuE0pTZSRiQGRbTfq
VBAbZ60Q/9qJYmXL6zx5zKsTgRVk6pKIwW7mF4mO8SNPnw0yotdpRO7CrqUk
fNj5CQd6FHEfPUqDqf3Bo/LV5jPLyFP7R5tdJz/iOhTHh33ux+tf/2Envc+g
jenjobjPSJYO20HvN2h9Ls5rovjKaXn1r61ypGixv3oubZ/+r1WOkMWzrsS6
FuT/xaGdvDI7b0C3OtLNc/zPtH/uuNNmviXzA4NzKW70cnAU7aP9a9vJexQH
L/ywflm87639S4d2vyr9MEbr9uTkK9/PhRZ/8A+/Ayx0p39wySLh/9a0WbzZ
Uaxs60jj8psj6D69vUljKr/PuMSF44fT/SXcLe9wNCSfLBMPqDwSkskNWbb1
vnNpDakzTkyzTr4ihH/4XbmmsS3l3ZdjOZj3wyn7dWSRUZwj5bXRLfiB7l/b
uhumlF9vcPFzyvvjb7YNR0Lyue3efnmUH+sZ6H7efUj3q6r1og//wMELP+BH
vUD9QN2AP/iHX/+stHqKvzfV0z8akkn2+/I3Cx6HLtAJ+qCuoc6hvkEv6Afd
fD+360l5r7+K7ErxS8tTclqvl9UT62W/r7q+jmLojO+q/p3rVHnC6oY+q/Pn
08+ma0Y956bPGS0wjZ0qVrZvyI2QCnPa9xfozOfHW/pviNWfEf66jVekaMFj
Z75msU7jFSGLo49x1p7FA+zvHrD0TpYeyzXsOnV4sorn6opPV6cMTxZiHDjs
xtvdFQm9k1U86GMea8/ywJ71CzuWB33Wb6eOMzybHZOlaIEH20Z3+eKYLGRx
9DHO2rO4zTDjmLKMeOmJ2DSX4oR4Fc+9RF/rFwnxQowDh13PCO3w0oz473Wm
pY95rD3LA3vWL+xYHvRZv3/sMbnrfC1eihb4j52fXHO6Fi9kcfQxztqz+NCD
mn3Wz4mT9kkY2VTkFKfimex7XV7oFCfEOHDYTWyWDVo3J07Fgz7msfYsD+xZ
v7BjedBn/fYw8N7z1S1OihZ4QoPWwWa3OCGLo49x1p7FfTe/kHyxjpVGVOdm
B4liVTyldX1K14pihRgHDrsygzXpn61jVTzoYx5rz/LAnvULO5YHfdbvMSe7
UgerWClalX1e14ZpVrFCFkcf46w9i9d8Eb/wlkqkOxxP3U+9/v3/i/5QV/Kv
9LpEiHHgsJu5t3fDEun336vRxzzWnuWBPesXdiwP+qxfq9Eyg94pEila4N16
fjPXT5EIWRx9jLP2LL5qou2vbdZKpFGvHfeeW/Od58KxTefOrpEIMQ4cdu4T
bNdprP3Ogz7msfYsD+xZv7BjedBn/Q7R3HhyVqBEihb4qd+jbrkHSoQsjj7G
WXsWj433eT7EXSJt2+vwoPVu33k6fXMi69wkQowDh92Fwv4fBru3ir+lj3ms
PcsDe9Yv7Fge9Fm//wXfu1ZO
     "]], {}},
  Axes->True,
  AxesLabel->{None, None, None},
  AxesOrigin->{Automatic, Automatic, Automatic},
  AxesStyle->GrayLevel[0],
  BaseStyle->{
    Specularity[1.], 
    RGBColor[0.1, 0.1, 0.1]},
  BoxRatios->{1, 1, 0.4},
  BoxStyle->GrayLevel[0, 0.5],
  Boxed->{Back, Bottom, Left},
  DisplayFunction->Identity,
  FaceGrids->None,
  ImageSize->{361.8523811738081, 162.71200368890666`},
  ImageSizeRaw->Automatic,
  LabelStyle->{FontFamily -> "Helvetica", 
    GrayLevel[0]},
  Lighting->{{"Ambient", 
     Hue[0., 0., 1.]}, {"Directional", 
     GrayLevel[0.6], 
     ImageScaled[{1, 1, 3}]}},
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0], 
      Opacity[0.2]], 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "RotationControl" -> 
    "Globe"},
  PlotRange->{All, All, All},
  PlotRangePadding->{Automatic, Automatic, Automatic},
  Ticks->{Automatic, Automatic, Automatic},
  TicksStyle->GrayLevel[0],
  ViewPoint->{0.03538383074912981, -3.352114547839977, 0.4605171470000674},
  ViewVertical->{-0.001436497473832001, 0.13608769819492506`, 
   0.9906957529307445}]], "Output",
 CellChangeTimes->{3.801174963209341*^9},
 CellLabel->
  "Out[175]=",ExpressionUUID->"999da805-7a0a-4a12-84cf-88be684b1a25"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "-", "2"}], ")"}], "^", "2"}], "+", 
       RowBox[{"y", "^", "2"}]}], ")"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Mesh", "->", "All"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "10"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.801174516921774*^9, 3.801174555719198*^9}, {
  3.8011746734206877`*^9, 3.801174707290638*^9}, {3.801174762359969*^9, 
  3.801174822957075*^9}, {3.801174867729665*^9, 3.8011748824512873`*^9}, {
  3.801174921360352*^9, 3.8011749478416557`*^9}, {3.8011750003307953`*^9, 
  3.801175009191297*^9}},
 CellLabel->
  "In[176]:=",ExpressionUUID->"a0d3a11f-017c-464d-af8b-ebb0c18ac628"],

Cell[BoxData[
 Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJx1mnlczdn/x8tSskQllCUlNBlDJbpt93xFoqKpEKGmMEj23VijbJEaW/Ym
UkSJENXNkhilqYbIUKGFljFFluLX797P693jHo+Pf87j87yvz/vzPq/zPudz
PieGfgvdZ7VSUVF5r6qi0rq5tYzrkvvtm44MbdaxB2Ge5SMlMifNvuHGWsRb
p+kNbwjqY70/p3uxU3hH4neiPzxdnlFifa6DzsbAIjXi9csb8nbeD7W5KY+j
SjxRr/G4Zxsj2wty/Yd0cP1p7NKmgOO2l+S8jHjJpw6LtWSt7VTk/wpugNs3
/dfTuexnuxMKvRTcZrZVfJR/iN0pRXziWqk/rHBsd9ouVZEPA/+6ovLQxKp4
uzOK/ImndTcf3svlqF24or/EPRP2Lr8cv8wuTeEPcZWbr530OljaCdfEa9Qe
aeoVP7fFNXz1M5zyfH/7Z+Qz2iNJe2frRCWTz+DTh1y4EzdpjQ18Brd6WGse
2mOALXwGb3Ozav2zaynkM/j2648e57iOsIPP4OHruzr3aO4vfAZfd7Rjo2vo
G/IZnEUte/HFy9AePoPnfL68bMpkZg+fwbNVJ547YuZoD5/BdzRl+2WmWNrD
Z/BNVqO2Hj6naQ+fwU+oFasZj3hIPoN7hZsVzilbAS6Df7m7nUq2N063hg78
dvrz+EYLKxtco40Y0jPP17SRfAbX3TxoRtWJGPIZ3O9uvMqy323t4DP4hgD/
CyffXiWfwQ06/7bey9PAHj6Da7pljMqZOd8ePoPHNKXN1AiNIp/B//5zQlPI
6gzyGXz35AVFV6/fJZ/B3/VVdY22vUI+g5cYqN6KmR1GPoMXjhurnpLgZg+f
wc8dcQzvvO4j+QyffEMWn37a+y75DD7a0TBh/Zko8hm8tcvoXeuSZ9niGu3X
sFOhBiO07eAzeJz3n0EOzfMXPoM/sejTVWt4P3v4DG5qvNv29YBt5DN4QE2e
w7aXf5PP4FFdV1boRHaUwmfwLwterHF9ZyqFz+A+Xt5uWc7mUvgMPu5o/dvc
SkMpfAbvvf1B6Iaxn8hn8K01VSeSrl8jn8GDHCYX5Rf7gcvgx/muzyzDE/Vs
4DN43cVXsz7dqCefwXfGJ0ztb3SVfAZvNJt2/4P9TPIZbU43r7YazeMLn8G9
f03V9Jy6nHwGT3mlftWk8Cn5DP70hscmS08TKXwG3xc2uvek+z7kM3iN9eXB
lv+tI5/B3e4O6Fc9cQv5TM+dnfVGo3Ip+QyuaRixxKSnixQ+g8dvunO9e/P4
wmfwtg8yJfu/XCKf0e/OX2ttp+z3JJ/BxxdUm704OtQWPoP/0uZUp/GT6shn
cNsuedHlVifIZ/Ds2NAthsct7HGNtoh569f3TCSfwWMH7aj036wrhc/gO6qd
DQPW+5PP4M9KtKOrVx0in8HnV2/wPPn1CvkMvszO8bqrs4x8Bg80qyvoVXGB
fAb365Xjab41mHwGf99FLbj8jSP5DF5hFrqife6/5DP6Fztxs1pE1kryGbwm
5FD1WHMP8hl89bxH7x9P6mYHn8E3j2TBp1Jvks/gUi2PR5/iJpHP4P9klz95
dyuffEZ70aO6ceQTK/IZ/Fpwys9DmvsLn8H176RdGR+YSj6DH/YKYWOuFpHP
4D1sfYrK8krJZ/As5tHQc0Ee+Qx+NqbzcmmbOPIZPLv89Lu01fPIZ/CYX6MM
pPN1aN+Dfow5/PXgmZwg8hk8ooNet5mffMhncDd/w+upkUbkM7h7oEt8z+b3
L3wGXxxyICeneb2Cz+DH9xqqqKwoJp/BN+r+lZaROIp8Rltqa3h1YkY4+Qye
tMvn/tNNWeQz+LxWJwpf6paTz+B7M45Wb55aSz6DO+7ze3Ti4nPyGTxsnH5B
Rtxl8hl8oYnJuiMdV5DP4OEJwxM+/NiXfEa+fD2D8/UMvoerZ/B9XD2DT+Tq
GfwdV8/gd7h6Br/P1TPaYVw9gydx9Qz+A1fP4IVcPdN7gKtn8GKunsFTuHpG
Xlbc+gy+kFufwbdx6zO4C7c+g5dw6zP4V259Br/Hrc/gidz6DK5Rqrw+0/6O
W5/Bw7j1me7j1mfwPdz6DN5PS3l9pnzMlddnPL+E22+A905S3m+AV3H7DXAr
c+X9Bnj37sr7DfDD3H4DvMNr5f0GxUlV3m9QPtx+A5zZKO830G7j9hvg77j9
Brg3t98Ar+f2G+DW3H6DnsPtn8H3cPtn8CHc/hncaK/y/hn8Ebd/BtcZprx/
Bl/C7Z/B47n9M/hHbv8M7rJQef9M3yXc/hntRm7/DD6X2z+D53P7Z4rH7Z8R
z2mP8vcgeH+Z8vcgeJuhyt+D4KO570Hwq9z3IPg97nsQ/Cj3PQjuz30Pgldw
34Pg2g+UvwfBS7jvQXAHQ+XvQbT6fZW/B8F7Oit/D4K/574HcZ+DkfL5BngD
d74Bfpc73wAP4843wBdw5xvgZdz5Brj6BuXzDfBy7nwDPJg73wDv/EX5fAN8
QCvl8w3wEu58A7yRO99A21td+XwDPIk738DvIud1TOS8jomc1zGR8zomcl7H
RM7rmMh5HRM5r2Mi53VM5LyOiZzXMZHzOiZyXsdEzusYzutS5Pp30tuKNn3C
GxeTU/0zpOZyXWsGfm1tyB8qJx9KewfqDi1K1iBuszt4y84DF6WIkybP91H6
85neEwbee0xxwCdnbZ1fU/ua9PsVXFrB6cF9BT2eC66+9mW+w/17FAftr1z+
4K+4/ME9hPzXrO780SlcW4ZWN3ditHdxK2vUIfiPPlf2JK4PlwjXDDztrPHq
e57TyGdw30DLG2aWP9nheZHycWtMd++W22lL3l7KG3V3OHOWzQfdc9IwhY70
RQlLUiNNoonD/9hORb9rz8onH8G3fk1YvbxoH+0TwNsH546YoX+B3lPghvHZ
VdNe55NvqPeOBvolF6r+ofgYxyCDzEm5P5+n+OCmvycPCA2/Q/3C/Hg1pN/n
7W2LKH/oozerb5xe/obyAbeUBA3xOPSW9Hh+gqBHnohfZ6Ey7N+3FTS+iNO4
RlEn4NDrrW86tMwlu2U/KsRfcO9T+x/dX1H+9B1RG5GhL8mlPKH/n5Anve8F
Hn/vRtbO5v6qD9UPSw7sTDxgnNbsVc3jgn7hObeEcQRH2y5RMe6ID/0Ye8/A
gjW3yAfoD2mHva1deIKeC/2GgyEbNgZtIB+g/0+zx7Ev7kF8/TOR+mci9c9Q
/7jGPNDs1fBY+31HcPr7SOYNc7OBzkkSTi+DHvnR99/c85mrb6eTLxjHg1PT
lkwOq6H9AXyO21M+LVg7icaX5tmVOdFLmscdcfD7YyE+/AQfOC4gdGj5NYqP
OG0Kwlz2bThMfkLfWv3lsb+XHpNy/WXoL7c+MKwPqCvEtxXm41C5vk66Q/78
KqlH9oDieQtypYVaXWYaj9WRoV1dHufiYhQtEa4ZeOTBIzs6BBvYrZI/rxW7
L49fkr6uS4lKxpnX0rbyOvkmzZPnn5m+fbDmwKz6GuKbFVwaJvDqp1pnkgPb
MvAas1GRL3a/pPmDNoJbH8CHCesD8kGcS//YR7Stf8v3i4n0i6FfmBdYxwYL
8wJ5HlP4lr5r8JijE8zzaLywvkX+5T1X+0AG1QHWjVnCOgD/4c9HtzGnTGNL
qE7Qv4HCOok4yCdEqDfEsVa06T4XZnT5ISKN6hL53BDWGdpfCfmcFNYT9Avj
mG0wPlNtwnOqj2QFl6qenjnhmfkD6i/yjBP6W3i0W7tw4w4M9xUeGdRnekQC
nT9gHFwb2jv96RIgwXxBnl/nv/lf8JRSqb48/icp8rnY9XZM3e+vaHzhW7ww
vqgr6Kfd3NQmoLGcOPrrdeNuQbZhFcUBN3nuHTr410qav+hX50BFPtBjffi8
fXrgy6Iqig9/5gvPhR58FzcvULczuXzALYR8UJfw79Xs8cHtCt7bwh/4cLfn
3fvaYW/IN9R/tsDRL+h/Ss58mxlZTRz6YQLHOGFd+SVqr4Ne6VpaZ5DXXLcZ
iXOd1ew4vUxEL4Mez8V4RXWq1HT/t+XcAdxi6NLQTttaxhH+/2Kw8tru97VU
t+jXG2HdAIf+quuRc/pmryg++jspb5h25Iwavj4Z6pPzn8F/vAcxH72E9yDW
c/DSfMV6jnmBdSNTmBfIE3VSws076D8mF21vVSOjeYf9203hPQtOfx9RU7wv
/Gy7ehmPbcewPjwzcrxm5X2ROJ5r23Hpp4AFLfsQ+DlB8Ad1Bb1MmI/QgzsI
4wU9/O9zfV+fOfPfSsd963H127cmaaw8/2fpWTWvAxMfVpI/yNMtMj264vEx
2m+gv6mrthgf9nUjjv42qfrvV384V+oij9+J4kSe15xWp7OF1kn4OVJ436nN
6KIfHq0jQ7uyYZv3obylEuGaga8asjj928Vvtr4JnS4lB6qwz/LnJqdbutwq
i42plYJPVXCpROD6JZq7AotUiTtnlvXe17WGfy4TeS7jn1sg9/mv9JN+w598
uVhN8cHPH2q/NceqSvq33M8vUuRZWxvuurauhSOfOoGj/pHXjsDhtUZlkySY
d/DtVsruDbrZz2h8wTOSL0WcSy6k8UU+w9QPSI+7V9P8BX+YOntt7/RqioN6
fybEgR68FM8V+ot+OQl+gqPerC30Z41wr6FxOad4rvSs4BvyBLcX8oTv8KPP
Wfe6PoPe0HpL75F9K8uS+lXQexnzpXtczrs508qoX1jP/QU9nov8fbRcH9Sz
WuKI45Vx+rfioBriGC9/QY9xwrqkW3vNxGK6L6236IdnX6fpHkn/2SIO/LnT
K3Lb14215DPyeXqwuuPBSy0cz30ucPgM364I9Qafsa6OPn3e2qSiZVzAvePq
W0XOqKZ1A8+tlyTNu6vfMo/gg5SLA+4pxOF8kIn4IIMPiA8fnC687hpcUUv5
oL8NQj7cvGCYF1ydMNQJ4qDO+xdGXc7+qZrmHZ4bu/OG1f9zvAcxj7qePZti
urPlexb1by5wjAv8fyLMI1/5ev6R5ldQf93F4w6X07oH/xuFfSbqFryXULeI
g/g7hTioH+h9hPqk/9ch6IcI/e2zpct7p7zm+SO0KVuPakh+85YI1wy82kPd
5fGcWltOz0T0DHqan8J9E+x9TVeudSU9fnf+bY1afL9XFB/jNcX4mHvI8Z+p
TnBf+M7KQTE6FbxeJqKXQc/lw0TyYcjH9ECYn3Gljgytzbe+s8YauUmEawb+
Sxv//Afty3g9E9Ez6JEP7gvx75MccWwM6fF773T9xEHRJRQfeZa+j3vnlD+W
+ov7Ki9ta1839iWvl4noZdBz+TCRfBjySTjhphderyNDW9G4ZP6wS04S4ZqB
1690TwxZWsrrmYieQY98cN8Di777OhmNJj1+jwnU6GyzqZjiI09r3ZioDnqO
1F/cN2dRwW+GI0t4vUxEL4Oey4eJ5MOQz5JTCfVOn3VkaGsbmr4EHRktEa4Z
+MQDlpEvir/TMxE9gx754L6GNcynrNGB9PR3zjOZ0o9VLyg+8vSPVw2fvWgU
9Rf3hcaWqae4F/N6mYheBj2XDxPJhyGfghhfP+MmHRlai07xB+cMHyURrhn4
H4mXY+caF/N6JqJn0CMf3DfdQU3DapED6fH7gjNnn6+a1ZIP8lx0of0irTMO
1F/c56fWdDE+/Tu9TEQvg57Lh4nkw5BPm1grvfCvOjK0gX+UZOrucpAI1wzc
VGOUwdrw7/RMRM+gRz647+lbxz3jB7Xo6f8bmyRu2WrUEh95Li5VP3jbsaW/
uG9yyrAcgwnf6WUiehn0XD5MJB+GfI7ERtc7NevRznhkWNZW4iARrhl4hd6I
hAdW3+mZiJ5Bj3xwn/PN7HwLjRY9fl+x2XSdvWpLfOTZLu7Fzr+6tfQX97mu
CvwnoPt3epmIXgY9lw8TyYchn/8DoWQ86g==
    "], {
     {RGBColor[0.1, 0.1, 0.1], Opacity[1], EdgeForm[GrayLevel[0]], 
      StyleBox[GraphicsGroup3DBox[
        TagBox[Polygon3DBox[CompressedData["
1:eJxNmQncl1MWx5/bQsQYM1OWqShLiZS0KCQVLZY2kSHSxmgRRpayVLIlRRkp
UQg1FcZSJEsSkV3Groy9xhqDYWbOd+73mf/7+TjOuc8995zfOffce8//reGg
M/qMqlYUxcDqRRH/Ff8IYrx90G+L/K1G0O/kNYN+H1Q7aJug36iPXh3ntwiq
K98yaKegrYK2DtpZzvodnK8VVE972wbVl/8qaNdUFF8F/zKosWt2DGooRvw3
koN3d7GCZdegX6u3o37AsZu66O1tPPhvoh5495KDd0/jwfce2mY8J7BVC/ok
5KbqYqtrUNugA4JaiAO8+8kbOddEP82DdlGvpfNg3F9OTG3E0VjbjV3fynlw
tdMeWNrLie9A+T5BXVzTOqhD0L76P0QO3kPFCpaDXNdMXs/96ajufs7xrUHQ
YdoG7+Fy8HY2Hnx30vb+6u5hbN3MC3GcEXRy0MCgo4IOFu/RcvB+rY9+QUcY
J3h7Og/GXnJi6isOcnCMHLy9nQfXt+7fsUHHKYPrhNjn7sH7B53imj5Bfwjq
of8Tg44U70liBcvQlHWOd00ncQxQF71/Bm3W7yD1wPt90HfiHWg8vc1NT8c9
3G/i3y98tQj6oMh42zn3R/2DdzjxiPenoB+DBuM7ZZ3TgkY4D8aRcmIaLQ5y
cKYcvKOcB1ezsPNR8CHsW8gHBf3C3gffP+jjkC9yDft8btCp+j1PDt6xYgVL
kbLOmKCmIf/d/bkg6HT1hsT344I+DPlibYP3Ejl4LzQefI/TNmPuAs4R523P
sLFH0FlFvif4xpncImWslwVdLm7wTtUffuqEzmfivDLofDFeJSemKeIgB9fI
WT/ZeXBN0974oAZhs27Q59gIXj9oy6DZrrk6qG2MdwraFHLtlDFeHzQz6Aqx
bBXfNwa/1DXjxPHnKjHdYjz4v0k98M6Rg3eW8eD7Rm0z3j3s1wz6NOSb1cXW
8qC/BC0K2ibmZwS/Lej2IsvXO3eTfrYOnenBbw2a7zwY7wy6wZgWimO2tme7
/i7nwbVYe2BZIie+u+Vzg5a5ZkHQvUHz9PtXOTjvFytY7nHdPDl5ujboviox
1Qr816nzkLbB+7AcvEuNB98PBt3heHasvTCoc9Aj5oU4vijy28x79rg4wPuE
HLxr9Iefx4wTvZXOg/FJOTE9LQ5y8Iyc9U8FPSCuZ7XHHj4nB9da+Yqgda5Z
HfRC0KP6f1EO3pfFCpbnXfeoax4Ux0vqovem8eD/dfXA+zc5eLdN2e9rQa9o
+0ntLjH+N9Rdo8/Fzr0rDvC+Jwdv2etw7t8xTvTedx6M6+XERO9D70GPUd11
jOsFtu1SxkVPVEe7ZW/EmN5nB8fs665F7gPoUeg96EXKnokx/RHvLz1GLedZ
/5Z5Yn9qO8+at/22VnwN9VH2TIzpq3i76bXK3gsf1CxnaJZYeaN3N6ePmWP8
04M0Lio9U5Oi0uu0EB/ze4qpqXpg3NsxMdN77Cu+Fo7BsY964G2p3bI3aimm
Vo7R5f0/UH/0Hq2LSs/URt+8iQcYU2vXE3fZ4zRxvq3+6A06io/e4+Ci0jN1
KCo9VtlztdcH7zpv4gBj6uiao/x2ov7pQboUlZ7psKLS6xwlPuY7i6mremDs
5hj/9CA9xMe6I8XRXT1899QuWHo5Jr7ejulV+rsGf/QgfYpKz8SYHqmfGDo5
39v96KS9r9U/zL3p7Bz46EGOFx85oBehvzquSjzIx5rLHuIB68nm9CTfms/0
TR8yUCyDHH+nDOY/pNxL0RfRa9E/DNU/PcBwMdF3nCYmvtFbNLWnGBY0xv6K
Xm0TnPcuVfqkEWKk9xglptGOy56J8Y/K4KMHo1+i36B/OdZe58zgHYIOtG+i
BzqnyHP0HmOKSs90rljpMc43R6PE1EscJxvTWPWY4/0fV1T6JPoQep9LxIct
3vcrjIF5+pXWKfdJ/PaZEHygv4Xof+iTJomJnoLeokt86xRUI1X6oSvFMtkx
OK52vJW9zPSi0idN0f9Ux/RDvL/jjWOK60doa6wxTXPNKG2hS69U214EfPQX
9Bn17ZF4v+vaZ/G+c0dzp+xhLugxbhA3d+SNRaVPukl8NzvGLr3D7eJjfraY
blEPjHMd0yPdauwzXEdvQV+BzrX6pl+4Qyx3OQbHAsf0H/QG9xSVPmmh/hc5
Lnujxcax0PX0YPPMwxznF+mP95r+oOyT7hXffY7n6rPss+7Wx2RxzDKm+13D
e89b+lJR6ZMeEt9yx9hdqe4C55eJ6RH1wLjCMf4fL/JbVfZJj4vjUfXKfmil
8dBLrDK+1Y7RpTd4vqj0SU/rf43jsjfiDV7q/Gr3Y6n2HnZ+jXuzzLmyT3pB
fC85XqHPss9aq48r3eOZ4n7F3O3seZlRVPqk18X3hmPs0se8Jz7m14npTfXA
+JZj/NMnvVNU+qR3xfG2emU/hF36nfXi+abIdy1vQMP4/kORf/dxr3P3crfv
7XfG/UPex3v2tOAt/Q27Vv/4GxDfTlSncfD/FPm3Rm9l7P+ryHcSd+m+KY+5
W1v6m3Sw+0rc9I3VyzssqEnIv0q5r6zu7y3uFs4mMufugPi+S8r9eBvfH+66
5t4bE4N2VOb8ort9qvTu8O1dy37xW+w3Kfdh9GD0IcgN5F8p38jdH9Qu5dzy
vvaTf2OeeTd5mw+XmOP9PT5lfORqP9ezNon/HNfzXvJWDlImV7/1reun/K17
x/z36nygjA0w8r4OdV9/UG7lXg9zzY/6OVP5LPlPyh8pD1b+l9/nuKdnBx0d
cntzcmnQxKBuQVODRgedHNQz5frj7w9nB+8e1DXo0KBDgv4d3zv6xlJDfVL+
HYu8j28umBtYE9QJ35Jv8WfmcYx1V02dW4LfrK/WrqWWTtF3DW0Urp0SfHJQ
X+uPOlyl/Zr64j3dQv1Jyrxds4Kfbzw7+GZxbyPX8v2aW2SZO53a5H2lPjcp
X2rdbp0qv1239h3CR23f9BnKvGncOdukym91ZN4Bzte24v+98bxmbVJD1BL3
FvcFd8VewX+d8ng75fXlWUn5N9ZhKf8tmLNCPdcUcydre6JxNff7VeAN6mWN
10mVnNUxh5zpuuaH/NV177Y0j9easx3MyUZzdJ252bFKDuknytzspK9N5mi6
udlZnR4p3zXk5oiU46/nvtWv4qu+cYGrgdg6WM/cdX8MfmSq3EdwcnZ68KOq
5Av+pWeRtZzH84Kfm/Lf5za7L5zrK4MPN28fegao/7nBL0r5/NT0jFCTnBPk
Tz2f9I6c6UuUx8v3VOaMIKM7MuWzx13eRY6dUcGPqZKjJtZQPXNFjZxBHTnm
HWkqzgHKvDNNnSvvob3VOSv4oKDDUz5/xEhPPT7lN4O/X7aX8zfMZn4v7yFk
7p+rg49I+cxWd4+oKd6vFq7Fdn/t8437l/rnDkbm7uS3Ce9Tede1dC3v2v7m
uVAGP7yVMnG1sh7Ia2vzXF2ZfPNbifeGc9FWeZI121a5jTI1+6eUa4u3jt87
7cRzkDL1M9ja+Zm9Nl/I04KPTfnupTYOFBv38EFV1h7teLR2uJ/baWeI6zq4
ljrtpn1+Z3DPcRYuUOaMjNNvWU8d9c/f0bhvuecPUUafe7iTcnNlao8a76z+
oco1nO+izmRlvl+c8nnjfhpvTVEb3ZTBTK119fsE5X97Xjm/3HFnGePvnO+u
ziRlvl+W8tng/rg85TPA/dHQXJHDW4Nf6/5ttub6uXdHu3/IPdVvqMy+XJHy
G8rZn55ybfey7nq7F32Uz7E++6TKHdDH7/NS/hsm52JGyuccmXPMueZt49xy
frnrTw0aliq/e+H8ruXcHOe3U5X528T/eMr3E/3gCX7nXjrePWquTM1/7xkb
7NlCLv99hLXlv+9gi3uD+5L7k95riN+xP1Sc/b1bBogBvyfpq40yb841Kd+l
nIUbUv49j0yPQB1PsCYHVqm3U6zJTso1rKNB1s/MlPsYxpybwamyt4OtN/Iz
RJwnKoOzhzEQN3Eg8zeP9q7/2dwP8/sw96bM+anuETV1mjlsqTxEXwNSpcen
D+RNOcB6pN45J5yXXa0x8vOnItfJCOX5wf+ccn1PVadRym86OrulfN5Hqs95
GGV9HeE66muKOo3NP3fNL759o7XZwX0p7x/616HmmTPJueum/P99SPmMTnMt
d9XtQdeLo7s6rKUvPVdf5G2MubpRebN5Okf5jpTPMHcwd8tt5utg7fzsOZ2k
fXoDepeyd7jA+uFtutBcHaIO9TZLHfSpz7HmcKQ55d7s7NoajscaI/82cZE2
uytTt3eKE7z0DxONl7ribSjfT+7Hs73DJ7j2cHV+9p4/z7U3qd/MvTrPHEw0
p43Mx6XuTzfnyMkt2q8m9nHGONe87WYOZpkbvpFT7rrhxtDIHJDHvtq+QvsT
1enl2qu0yZvA20C9jXDtbspXqc/8FHVGKvfV7zXiRJ6uPrFPFc9wZe4Q6m6a
8ljXIs/TRw2/T3PvqEvq8xjxTNcX8gwxUGfXpXz3cV55R3ifFqR8Ji8X8wzX
3pVy3fMucT44M+X5mGmuLnEvm4mZc/iL9c4ZoObHKLcz57PN20XK1OP57teW
1gU2qR1+Y/Gb8Gx7M+RPfKPnGVdX9dC52fqopv25+pqjDt+5P7h/eJ8mqN/V
vbjBPC8JWpgqZ/VWc3ahfmtYG9jnrNwd9JeUz8k9QYvM3W3m/HTzO1//9wYt
dvxX/XE33Kctztz92mIfHnDNArEsdP9u0+91+ltkHczXPnE+HPRgFR9LtLE8
aGkVf3dr75GgZVV836PtBWKYr+5SfT+qD+J4TLvE8bi2iOOJoBXGsUQ8C7W9
TNzMP6SPe5WJ4dWgF4Oe1sfD2mD8ZBV/y8X1TNCqKr4f0c8D+sD2mqCnHD8b
tNo4ntMucazVFnE875on9L/SGJaLYal+VhnPCu0TwytBL1TxsVobrzv3rP6e
1t5rQS9V8f2Mtp8QA7bXBb3seLV4sHmZe8V98DdzR0xvuuZ5/bwo7mf0tcp4
X/PbajGv1MfLxvNe0Fvifk772Fsf9I7rn3V+tf7WaWND0LuOP9AWOfg86GPH
H2rrjaCPXPOmft4W99+D3je+9/3+qj7fEjf/dvOptl7XNvMbgz5x3TrxvCzu
d8xFafdVcax3/g05efpC3MTxpXbB9Y3f47/iH/G/z4zhA7+D4yvxfej4Y3G/
L7a39fmpmDZoB6xfp2yX3HBHcv9yT34rhu30i96GIvvYpL2PXLtBLF+Ic7M6
rxY5ho1i+a7UL/IebDBnnxvnx+p+K+5NxoadjealxPOdMfwXRYbeGA==
          "]],
         Annotation[#, "Charting`Private`Tag$141803#1"]& ]],
       Lighting->{{"Ambient", 
          Hue[0., 0., 1.]}, {"Directional", 
          GrayLevel[0.6], 
          ImageScaled[{1, 1, 3}]}}]}, {}, {}, {}, {}},
    VertexNormals->CompressedData["
1:eJxtWnk0Vd8XJzIks0RIikhmKsp7h0RClCFDhFLfiISEVIaQKclUKlMIpTJE
nuGdMpbMU4TMMj+aKMXv3se7r2X9/NFZfdZe++77Oft87udsRE47G55dR0ND
84OWhoYOWW0dllwdQn0Jhn7t7JIpHgQa8s8seJ88c+fXL9PiCHfBqqtcRsUU
/JqyVrJ0CV+Jow5fRqs8bwkFH+aTPvYfb3nJ+oKg9HuJ5RguJscQx5ZlWKrb
Fr3VIfBEKQVfjP8q6jxTW2o5ymEun9qK4cg/wQ31kmUPVTUleHOUy/7BxXRH
XcrkNzjt+Wwd9C9++QxXYpmduXVlmGoZhl8bhi2MMlll3i/0vcxCuzG8Oh5Y
GfHfxQUWCVcV5A9i+Mde2bwswSwcx/jpkbsGLRhOSh3VNQWRuNN2ago7urIw
PNnYK/TFRjNcgy3Ln76jDhielx2/mUuCEbeOy/cbux43hu87J/DyUAhfcchy
Q60ZCxvGZ93bhaPX380VXwaB52fBGIYPCT92f2+aV6JbwOl9RDkb4zNHrSTj
WZtFqbqlhNe9bFOMN5uJseq9LyZLVSrPstx9PIXhB7i588N/nSmblZbeMjt/
/h/efFPMByrKTGhfbm8+0/gvnxv0b28gftzL+a7VVZD4D7694+heosjlY7EK
cYYYfqOqvHMh+yBRUwRu2+XvQpxZRn9I4NjtTMmDVrvwrBvxCi41HsTPq3jv
SKrc5uSDeC7vc4NC2v8RF1ZxehCk/YVfAs/x6aPE24tqWP5te1nVrTrmcH/V
FWgXimgw/KWylXCDVAouq7bqtHhIJlY/bf9jq1+qD4plf097sFaHYnz6J97+
okXvVvI5ru+pyKOzGJ8Cm4/l3ExQLO2rvhfQIbYL403zD+6AcG5Pqe25SO5W
vnYMF9U+bPc23qls8nq8YniAPfZcRQezC+qWI2W7bQtu86uN/stnss1BTWK5
/pev63/pYvVz/102bLALJwry/LSitYgnvvqzygP/ctaXrtdEXsto0b2RTcQt
tUtk/Iz2/u8PFyqI9c05E65KJOKxs7NkvPKj7cJT4Wf45E8mwW/kfhC/Dw2R
cVVpZeP2iQq81kXw8AgcJm4YWiDjAbQlpwersvDq17It44+UEenfrDxX2pYe
J8Tthu/cLR75uf46MW91X37XNYt8sNqO38nyVNWmVwyr/wrLQJ/wfvqS+RLH
QeabsxjPWqetVaaO95aoh8WejcyoxXj++cJRUxafWLpN9cbhfPo7GJ9c6cwn
rLZqlcVXzhMerN+P8Zb2QCU/v7mj7LRyx1yAF7U/jTqtLK95HCMO93Hva3TR
JS6t1jkwvXwo5EwO8X782SgLtVxiYs8K/r3wrUbw0A8iw3PXchbNZaLNXBoZ
P1T3q3Pjme1QXDlHkO2iEhS5l9KP4iK1VRwptTJwO65AOA1vBGvrW28sIfh1
1udG/WM8oGGr/azADgu4LCNq9BfBY33Mr9sVyIC4V469u+4dgc2c4UfRPKQv
pHPHP3MDIEW0mGbfDq01LX+heG6gYUDd+V68lNC1w762g8SnpvPkes5Wcf5Q
PR6Ob3XooNuwEEr0X1qpP7fqwG0b7xMlW7Vdc8/eOoDx+aB9250TunKl+OCM
JFllXozP9AZL29SG2dLnrvqcLt1dGH7lu3JUfOz9sqdXpz5L5QZifD6ryKCZ
sdxFlHRtzmpR3YLtL7PFvhTHo4+Jre8vPqnpjyMWL6zUM2umqKS2bx3MVzw7
wlDxhzho6kXGbZvNI5WMtaEGc3s8N6cOJOhLlKO8XQnzrA91vgxbBW13JDL6
QZZ3r+wSEFz47e3eM1v84NaWg3JlTMnQ2E94T94iCcTJjlTuVf4PlH4UViqs
TIdcjdXqdxZIYFvF8Pf37H7gsCQtY5lRLCyc23ls9i8JlPo2MB3edA7ApjQ7
eqGLMPss+94JJL9eVTw3q5kcmLocKsqfLgPf3lnZ3/vGdBdsvPrwMfYe/2l6
dxB/iv8m159qxBATQRdV4tDNa89p74TxfOy70JlMQYfS95PD9j9KD2N8ak2p
pXOSJMuSMs7z9SaxYHz+CRnXbsprLWNUDnMuknqN4XafL528ZWhH1FGK9R1l
1CP+Xu3bd0HeX64b9xI5lXZbc7u8I55j+0PG9c//4Pohh4MDxTu4NYtlYKrC
3xIUH9JJrua+cRN+ZqY//KLTG+rzF4deQnBdrmX+Jb0cqJBKdzRTMA+OTj3R
bPhEAsy8dmFy5sVwz/VfbWUeTQiffR93wBngdV492P16CqA3+pTe3tMOsxJe
RgmxzQCZltx++ppiYJxuGhdwrBqOVISIThiTgGb2zuGe7BQw6qCqc5MzGY75
0BrxzJOAumJLwaKcA2gYxSUnnLKBXu2yfHNIPQfSN8yxKfMDf77DHCn0TFD1
/bc/aP37uBiV/RpfofxKLP7xxXhuUKksvywZgfJrae94kqrDQiFpwUIGKI8B
1ePCGJ/s4nf7C9/+RP+fWVNVi+F7Bb/kqVy9RSxaXnZblLMhuq7y/LpPz41v
jgb6k8par6v2EOVECsg4x2H1W3d6bOCbLcHmEKrDXrolsIj281C93NiNJ/DP
iOkmP85IeMpgkwn6vklDTanPJpthoTYtt/14BRysHwm0PDYDcjaTlh3bOqH3
8W34W8x90NTvx/BTnnEgcWg/V5XJG7Dj9ZVh5QvD8OqAjYWu3hiI0RBkPh3z
CbSd45A33NkBD//ySyuanADK0T9jTbdXgpCRYs3Ko3lQiZOn6n0ACQwWcV/j
UI8AKXOF0U/HXGGFhUkjPVInXduZZKvtOADu2e3eAwVgFH6uBn2vS2Jly63G
b1f5pfGl8NMyjnewFY4vXYsnSe152zxuXrYWH15KzyR+W0dci++4vT/8/O1o
DKfoFe0JQEejvBFS8NkpZTIeXDZyqGqTI4brPxrP/obyPLDFwPdVHoZ779rh
tGWCBAwt+v50HeqBL0PEzMILpPAr6xQYpPv2/OjJYchwsqwlN0cbv7KOgeHG
eNtKtWaAf5dpVdSkj19ZZ0D3Gy/VGcNhsFdJOzvutTJ+ZR0DupGsSgVuTYDy
3JQfFkOvpmaAgMl//ozy8Rj+fkOETiCiMyxvIgYuaWhjOLNGi+Oaft6O9POB
/9PPZkg/q/6ffvZE+hn3f/o5GelnDP/6cXv+aj87If2M/z/9/AHpZzyln/eu
9jOfYPBxpJ+BGP1KP/8+udLPPF0mAkg/g4UIHnI/H4uZJffzFSd3VqSfAYe9
QBDaz20n6midkH4uSCjEIf0MCLzJ/6+fAaWfc6MTmdB+1nDXlEH6GTixKaWj
/ZzsK0zuZ67WZF2kn8Gfb2zkfr40+9Eb7WdiVuFDpJ/Bad2Vfm5NliP3s9k9
O2Gkn0Hcaj9T9PmYe85NRJ8xnin6/Kko1w/RZ4xnij7rsTZW9SSxYHxS9Nm9
WdQc0WcMp+gzj1KsHaLPeIo+Rxu9G0X12e7BXUNEn/EUfbZc1WfpmRPrEH0G
+av6HDWYXIrqs01yohyiz6Dw3Yo+3zDcsAXV57hifQ1En4HZeClZn2VSieGo
Pq9L2/Ae0Wdwec/lLlSfp4o7/VF9ZrxbEYfoM+BQcYlF9dnuwdYBVJ+ZAlnC
EH0GvhuZxVB93gvvjKD6HCyUhUP0GYRsYCTrc8E31kJUnweCTWMQfQbW3Sv6
zOT6cRbV5zDdqwvJ9EwAv6rPFL9xP6zQHPEbGM/PRjnJfqNA44wv4jcwnrcN
6ZD9xqD0ho5L3V0YTvEbhf2GhYjfwHiml2RbnEb8htK4thfiN/AUnOI3/h6f
90b8Bn6t32CmUchB/Aae4jfCWs3voH6DaTLvDOI3QODxFb+hYOJF9hvGCdpL
CYx+YJKukOw3zsjeI/uNu095WBG/AThF5cl+Y8vFP2S/YeK+dT3iN4BB0yjZ
b1R/HSP7jSC9Lx9LjWKByAcZst8Qn+xkQP1GwYXO7YjfAF/TVvyGTuo8J+o3
Tv/lGuFLlwF0kSt+I9qYzh71G77EOmXEb+ApfoPin81KNiYh/nk/hQdRtetk
/5wxW7JwJ6MW43/yozbZP5czfniXR38H45nin19U7DuB+GeMZ9q+62Wof9ba
x+uF+GcMp/jnns/cNQ0uuniqf/bRRP1znAI4hvhnPMU//1j1zz6a4VqIf8af
XvXPpav+uaM56wPrRSUwt+qfxdpX/POoVmxrKt4IqHat+GcNgRX/XLBvVwji
nwH3oRX/fDlgxT9PE6Y8EP8MRnhX/PPWuH3/of45eEGSG/HP4Naqf3ZSjyD7
53yDl0s+toN4in+2rOKcQ/2zVpPqI+aFUDz2PVq9Dx6OutW+sToU45lyH9zt
lyuO3Acxnin3wTAR8eF2sV0Yz56ynOT7YLYXMbqFrx3DvcJZLqD3Qd7pjpiw
AHuM5yE618voffBkAmRA7oMYTrN6H3SUGTyE3Aex/qfcB+/aybyhsYjHr70P
cjz/QNwT2YRfex9UoRuWRO6DeMp9sGr1Prj/yXYG5D6I/7l6H3SxmSTfB/MY
ugSQ+yCech+0SN9Nvg8emBzPvH+kDE+5D77oXFRD74N3I29399Zfx1Pug7aK
ReT7IO2d2FfWvWJY/ZT5hp7hcKEpCxvGc2/LOHm+QVd9NIYExjDcSimSPN/Y
MUp/Q1s5G+OfMt8QFv+RFZdtivEs+ES0Bp1v7N5csiHy8RSGU+YbqV8yAWn+
/D88r8w3rhY/3dh0pvFf/snzjeQT3z60uAri/8G3ofON4pi8Wfk4QwynzDck
3GMCJfxd8JT5Rhf9NgV0vjHUEWp9qcYDv3a+8YZLjUdI+z/82vkGo8zt2DcX
1bD8lPlGfwCv03wRDYZvStIgzzeYZR1DdoZkYvVT5nXlucFjEikeKhScMq9z
dusZ9OIywnimzOtaD9+/2yLPi/FMmdeJjxLexSWWYzhlXpfZzL3ePvAExjNl
XjeZ02svl9qK4TSr8zr55GeLPDnK//JMntelMU6L9loH/YuT53Xd26VsQlXL
MJwyryvjLNhlGtqN4ZR53ZlC64FX+YMYTpnXSW85wXDXoAXDKfO61Bi3eZGu
LAynzOvWRRFLPh91wHDKvO52j946dj1uDBf4m7V5sLIePvZYdyNLqhk+cni/
wDsxDRQN6VnXGXwAx1k+vTp1sBeGqGm2MKVMAoPdGy3HflWBatPPCcx2FZBH
uKfh1E4S4K99NCBVPgBNvm7hETL8ADWOGFunFo8DV0UhJVJ1P0hPKC1Imv8I
o+4kX2bzGgPL4pqDaHyXTLYwEg/mwgVOofG0IQwKaPyPjtI3SDy4EWvlhsb/
ra7iI4x0A4uvrlV09m8AtFtvHOc3BX4S87ei9Qs/uH0VqR+Un+wk1z9ZvI8d
rT88dPoZUj+I0PRpI9d/j/0kWr+nY10cUj+YzZZuROvn8uRV3m0Oii2SnGf+
jO3B5jw7pOMau2WaCFzT1knJHlXY3DhDvyuOvsgfN9zHLLzHJRK7l9k/jU8d
zjiBe/1Ndoou2BbDK7KntDT8k+FdAoOIE3wJB2j6BuYnkXsNm2Zs0WMCvGUe
1o4vqoAzBzbHBF4mgSeyE0vZAnehDgfDNomWtxBK5l5jf0kCc6rsxjeLSqDT
y5epx4wGoMrTh1+4X0yAuQ2LnPjhXMi0ycV5/4kMaBExvcl5iAQCHl1LpL9f
AY9HzcbTGb+BAey/o4pOkoCxat9P3b48oIJzsDPPHYA7T4K3incmgBf/rrDD
8h/B+vGUiInIfijmI3ubs34M2Eu+d1vv9A4e9HqRfh6XDhW0To9rnSaB9Qom
Ard1u+CFpmRBNoFS+K6GW4ZDdhrMsDYq1RGHoMwrsVOhMrvwK+s4YGslHgsf
aoEvjRNDVL37YK9T9W++vRPgcE9K4jHtWrDf/Ox5Jad++FxYU1Xg6QTghh/1
0XjP2NvRSDyourV9AY03v5U9HJA1BF4P6MvsBkfwK+s48hKG/Gif1A4MvEX6
BN4coiP3CTNXl6YTXx84flKgjWdhN35lnQSseVdEvqUNwI/yu1Vl2TrAVIsr
qcNgDIgfYgj1+tIFN8tU/xGZbgU8Nuy77W5OgplEhwdonVWPyp2ROkGhwtI+
tM4tD6Wa51UGwZcctbcJNg1g96HrAuj7buozSm2iKQB5D89ZZgjdAbsVctjR
feHvSLFC93H9O+NkZB9BweOUcXQf8wqr6J4j+975qZgZ2XewV9TrOrrvqcOp
puFNDeCbE7+o2cFWYDlzxEvj1jSoVhO8ccEwGRzg+fzBQ6wMsOkpJIdWk8Dx
jiXBkVOJ4PSMC8+ZvkigztEep434wHti3DScrvfAsROGtEdwKeAigbFO6Re1
//9j3PR7cWzP/rX9T5c29zrJo0plbf+P5bU5KblEYnqSnfSaNCmiiHs2pSW9
m/8ghptJaclrrJ8l1Eg+MJwTGiOsjRcxec4sxX8QOy9meumsMCULEkfgDSHL
duj59PtPO+EZQHO9TYeA74STR5J7HROO4lfWadAp7TzrJVoP1Mc3E9RuPAVf
1Tr3xwqRgFt3oYPkoXqYphnaO+rcDSY2KQtsQvadpZ+VB81vvHfLJSQ/ECTd
+oXm1zj4u965sgj8FRsuH8xpBmnrDwg2358BZ0/sO+FxowC8o2+0tjJ4Doxc
IwrvtZPA4MZocwabPDDjDOfEEgvA1xLtjOB6Eva+PhG+SrNCYypr9eEW67gc
og8YP+8sVb6i53FOQdkWOY/gq79TBXoeeze+/+Qm1g6dDnlfjpXqAu4iFcDj
8iSYEDRi/yk5QAgoE3WqOtSJ8Sll9t/MQVUt3E7l4om0ZUOMT0txFRMjjXYw
x9APBYoG4KOv7w+vcx4Dsbw8DNte5sD5vzdjej+1QeZH6rMuMgjP3N3fhRHc
3q4tE8HBIdORKRS/FRHoQhAbBhs68hJk91QBEROFPm6dMdDjz+mM6oPQs8kU
RB+AaWQSWR8ksh/zo/rw3spyN6IP4IOMClkfzn8zy5pT/Qx+rf+1/1ZdE9hg
OcNmNTWBvdfJSk6jykOdKmvfy9tzDyfyXhhvEk9PmqHnItRXVhw5F/D01jJP
9FzsePbovW1LG7iX5NeTdbYbTjO/vsSzOAHiVa/zbp1sBZVJCik/L9ZARbOi
H8Yfp0GAjMIOVAfEsvmlEB2AmSPtc6gO8PnXDb2RGobBGa+jG/dWQDeBYYM3
p8bW6iSg6GSVibM92m9zX3oHkX6DCTzL/Gi/Lajfvz+SUQUfpHdHjrO0QGYD
ieXzyjNARsL0FqozHSXSfxGdgRdOJpJ1xn2pkawnD/kvvkT0BMrSWguiejL8
esFAvLUPyLnn6M4Ld8Fve28Z7CofAyUP09U6XLshC8374l2RtWDz9mzd/7ZP
gfVtWuT3dXE9n4m8L+htO0d+X2vb2TJ8dDVIq+Ow1JkrBYEXNDYp65BA4inW
WwpDGYS3kZ56y27JWF8ZxZU0k77UwMS+ux9nJ4eglpK/QdrxMdAX2HfWJ64T
tpQekcyv6IeX22/nlhuNAQn3ePL+vvx2SwLZXxj1opQT3d+AB5w6bRbp8Iuy
N5PQ+mGY3RQ2nTo9BrTOxL++JfcMxhpcstNb6ofcCYtPG9gnwZtMrXUF810g
653emNmnHnhkoNhT0mUcVB2G79F6OnakdCH1gKP9BvpoPYxl9MbVG/vB48OG
n3hf6uJX1klw5E6lNvpcr3ybDchzwZENjFPocwPqfhmi52LDccFK5FwAlzol
TfRcJLL4NKD11Ek9v4DUA5wFzJ+g9UwJvV96hdSzs913HqkH0DgauKP1mBO/
uQh92Irrn7+xkeXIbuzcfRXXj9af74fXCKmeE50N8G73VQELugkgzM0eheID
D+wSEBy8Sb7Lj+I07yJiH4R3wGobBzmf2hbIdI/pTJLzFBAvSohCcXG3czoI
DjRnDK1R/Pu+76F+1a8J0kn0KgZOudh5KVbqr4koksPF/3r9yqOPel+mxN9k
fMZ4zCmXsDa+NrtsyLOP+vsprRe7ukb1GqCm58GXbLODcFs+neLBzDEQ+PuD
RPLHSsCa4RktEToEjw9Alu66MeBWKbZ4cl8e9PqU/P3ApAF+ZUXus587XFHd
6LR+EIjoBrwocYGsG58ZF3mcm4YBW6/uKU19ZfzKOgZ8xmWngzsaQd2TgwJ8
o63gh/SpvgSLaaw/H1l/jFpyS8bel8K/VQTfG+Yju6m+9/Zf8newYiF/K/Id
hIqFreTv4MdDImaonsufZbFH9BwerPYl63md7QUiei5i+irOIOcCNpwWIZ+L
F8yPyeeOni3/GHLuQFW2lT567va8UbReH9YM1w2/iorRrYOPzU9zaH+bBo8l
SX84kO/sWOHWzch3Fi6F/fmAfmf3cniSvxezvPR0OxMLYD7DFvL3Yla5O1En
oBzkbBrlYDGvhl+O321LlyQB0W3Zz4sUewFdFU+X354GsNi18/sVRP8D9xXP
ofwwXSXSIPzA1LrbQyg/r20dbdHzeH5DvxRyHgGzxkgOeh4drypIo/u1J1Qz
Ftkv8CKWfwO6X9+mrDQ8+wbgZjo8j2iYDn5lnQCBesJJYc8qIVfeM+fYy4NQ
9GuQuGbyONAPwi0eMysAAtyKS33i+bBT6FeCUx1SZ92zrcmxzmBj+db9uXgn
GPc9euMQch9kOSB9ymQwGKSmZGlXXvSHSQ0xOA4E3/TS/NCV2ykg51lc+gHu
eBi3/QNz8QIJ+DYPt6Pfu6Qf8u7I9w7+tA5VQ793OX8/1aQK5xIGiIKmv00y
sb6Vc5coEuAUxwVEZ9jruytifTuxQP9bILoYDMQ6ah0Rq4Z9Oy3uBZqSwKln
ToyCCH4iaNgNwcG+VMlYFC+sEjc7dbQL2MXMDd+/UgG2Hc5OqP0zhT1Xly9b
/pdJpsra595s0fQ/6q6I9RujT/ey2atC4CkjHeZp2wMZ5egi3EKngLq30bUr
yh1AvWjaMDG1C/JIe+iKbZ8E231p6nj8P0MJyTD5XV/fwsKDZnNSVZOgpHKx
GsWZOUPPIziAnr6zKM65rLzVmjmG8AFyibcIhmM80BaMqhg/iYfzdYXNX5iH
YXPQSdlU0hgwf1FG94a+EY5Fttm8TxqAR64oSnPcGQfNRl9dz7x7D8WOeOi0
JXXD/Gi6W+t2TAFGx7JnNTYvIP1yAO3zqz3QS1RAZ+v9KZB03HU9mqe26sEp
JA+oxT+UQfP03ACq6HMlDvQ1IM8FQfGp8uhzX0UpWqJ8irdzFyN8wvvlcYko
n0bv2aVuV3UBM6Ym1ys6R/Er6zQw5jy1iPLG/HHLY4Q3cE7nVDDKW0g760W0
zrOmlrZInaCnONsPrTNW8Nnf+g3cOPpuePebxTZs3+erjicpPuyF3QynMqQn
PkGuhBSlF7/GQH1ifnlY/BC86L6xe9oH8SnfTiv1hyLfnU9Dj9D4XdfSc5F4
MLYQo4DGC9OFXbcn1UMuhyGPT7ZVcC7svLbtkxmw75Ls1XPSdXCZM6vXYVsb
ZPyxbvx0+DSQWOfohsZX0tblI/EgmNZBC41/8OLE4j3NR4S5r1PqPpdjsP55
XMu4/89GQdyA334j3R87sf7h2eF0Qe9eA7yh0pn4kMsAv7KSwK5he9KWulwY
Xtx9jRdUQ4V38ykKziTwh3ahF8XbX08REByMNF5IQvFLfTe80H4rwtHZIf0G
nC3XaaP95sP52iZzqgiEttUN4araQF61VouTwAwYVqt6iV/fCfKDfXPkr7Yg
ujWtYSc7BYLlbWolhpvA0iy/0x6hKuh2vclRxH4GOGXfPYPmOccf34jkgTRH
Ce1ont2p7HloHgm2bQlIHlhdkaCF5qHwECKRrO57OYawlgePmyY2ej92Yvt4
iR03RJIvAVtYHx1ObzbAr6wkoBF8oQqtJ1Pz1GukHvAr9bADWg/lXDz4cLq3
STAc45nSJzRP6hq/WmyjzufTrKdvSNcDNlaXk08tuuErneSQ8qVJUINzDzxJ
0weraGM4y5d08SvrJOiVT9lTHFgOOZm2rtfVHYIWCa8tWAXGwa0owl4UzyrY
SofgQDZd0RLF5Vv3ZKDnKGLhNRdyjoBj6kdN9BzRWPC9WMgYgDM9i79lE1uh
ua6C5p/mMZAxqkz2mU2tIc8QnwmUGuTJPjP16uJbtG+vSOR+RfoW8FtfU0T7
tjSH5TmaZ8p0P4NcYivYlVSkgeZRnhXyQPtTSSdlDulPcF/1wwjanyxa2uPo
+9rsfeCIvC+osc4PRN9readB1cWRe4T1D5tFbRjuYvuiwMz4dVBpMw7k/ZzM
uLwD2xdK/BMRC3Nrhrsqa+NTTA7SIPEYzzVxV38z1YUQ8CnM6Rs1/LH8vsaL
qU7lrLiUDFLafSl+LP8PtqHQ1rQIQmxS3vnzjEFY/uip512lbFw4jwmGO1Wt
Qri18T8uLnvbMwYR1sZn2jz6Vt0qVLa2nvL597UsGv4qa+uJcFF1vSfFj+UP
fTxS9100nNACuh41cgdg+TcqW9A9Os+Be6Nnc4TuokDZ2vi/w0s5DdwBKmvj
2Yk+S7QXBbD8nMsvmt4+DSBw6TryeNtdx/I39Pq4dWlswNXNPpnZy8qL5bct
VeG7GBREOJp9moVV1BfLr+Vr9nJyZiOuc0mktp+GD7c23m5gUzsST1gbLxB0
59sADV/Z2npGD2iXeNldV1lbz0tj1sE9rLxY/oxqs/rumEBCosKT3EeNN7D8
39jj2maiWHBzshF/D9BtLlsb31Zjp/Cw8YbK2vh+k+DR/XSbsfwhYwF2ddf9
Cf1GN9Z5nbyK5fcJ2tGi8ZQJ5/2lc2toCg+W/07uc0MG/ZsEpptb0o8meWP5
+za7eskPMePkjl80NwnahFsbr0eon9JP8iasjf/u52N6ImhT2dp6djX4fPA4
eVVlbT3GfOE7QlJ4sPwxEw2sfCP+BCmGCvfpRWr9M3fWG6tpMuNuh25N4eCm
5qfEs54YkZ5apOanxMeSZpLZuan1axgeZ9O57kfw2Zg98Oe7J5b/peqWcMNR
Rlx8StJlge/Uv8/cnGPem//Zj6Cj/9jWJ9yLyj/tS2Pea0y4tH0Gl6NtqfVT
4rcdfxzpG+5FWBuvWDF4IcaWyj+lnrgTQU8Xv3uqrK2nR1nFe8t36vyZmFJL
0/Dcj1CYzCT8nxo1v6Lo/HSXHBPOIGva9bEkNT8lPtEva/KsGrV+SvyYiM7V
FElq/brDN33k1/kR7hyo+lCvTeWHsP/GixtBjLgB95SOC0lUfu52m17Ql/cj
JAnrLPNEUesvs16IftvIiDM/n7/vZxu1fkr8m+Cc7bxR1PyU+LbtO6Tm26j5
KfU47tVPq9Om5qfUE+tmO+CQRM3vsS9r6yt+P0KHRtsHSydq/vAHkovMzxhx
OCsje9Fian5KfNentAcnnaj5KfHONWxXdhRT86//pac4UuVLyCzusHH8Tv27
aN20N+8ETBlxg6dyiqPdqfmLak5IcPT6EriU1X5c5qPmz31SI2nqzYg7QAw5
xxpJzU+JD2dk5b7CR62fEr/F6pUxWyQ1P6Ue8WF13IXv1N/7UOrpvZNaH+VO
zR/hdPGdR7MvgUdMicmRgZq/UOEBjZI9I87TWLa+3p+anxIf0MTe48BArZ8S
r878oK/On5o/9IlnA2umL+Fg83JURi2VH29mt44wwIjjnEozqbGh5vf2Ny0K
zfcl5Fr9FQ/sodavLHx9X+RxRlyp/U6+OSdqfkr83C9ejaAean5KPKPsIONX
J2p+Sj0NPSddntRS81Pq6R5Ps6+2oeb/H3opSXk=
     "]], {}},
  Axes->True,
  AxesLabel->{None, None, None},
  AxesOrigin->{Automatic, Automatic, Automatic},
  AxesStyle->GrayLevel[0],
  BaseStyle->{
    Specularity[1.], 
    RGBColor[0.1, 0.1, 0.1]},
  BoxRatios->{1, 1, 0.4},
  BoxStyle->GrayLevel[0, 0.5],
  Boxed->{Back, Bottom, Left},
  DisplayFunction->Identity,
  FaceGrids->None,
  ImageSize->{301.3215643457522, 253.25589540076243`},
  ImageSizeRaw->Automatic,
  LabelStyle->{FontFamily -> "Helvetica", 
    GrayLevel[0]},
  Lighting->{{"Ambient", 
     Hue[0., 0., 1.]}, {"Directional", 
     GrayLevel[0.6], 
     ImageScaled[{1, 1, 3}]}},
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0], 
      Opacity[0.2]], 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "RotationControl" -> 
    "Globe"},
  PlotRange->{All, All, All},
  PlotRangePadding->{Automatic, Automatic, Automatic},
  Ticks->{Automatic, Automatic, Automatic},
  TicksStyle->GrayLevel[0],
  ViewPoint->{-0.010353171453834398`, -2.4733306239640984`, 2.309226804885612},
  ViewVertical->{0.0028566121120519672`, 0.6824330350395459, 
   0.7309425370396467}]], "Output",
 CellChangeTimes->{3.8011750104879093`*^9},
 CellLabel->
  "Out[176]=",ExpressionUUID->"aee955bc-189f-426b-8e6e-007e8f5a7ac7"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "linearwave", " ", "=", " ", 
   "\"\<~/Documents/knowledge/CFD/Discontinuous-Galerkin-Methods/2D-Linear-\
Advection-Equation\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"SetDirectory", "[", "linearwave", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"sol", " ", "=", " ", 
   RowBox[{"Import", "[", "\"\<sol.csv\>\"", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"u", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"sol", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{"sol", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{"sol", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", " ", "1", ",", " ", 
       RowBox[{"Length", "[", "sol", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]}], "Code",
 CellChangeTimes->{{3.801176497435169*^9, 3.801176568584341*^9}, {
  3.801176636366692*^9, 3.8011766369091673`*^9}, {3.801176757995432*^9, 
  3.8011767584266167`*^9}},
 CellLabel->
  "In[187]:=",ExpressionUUID->"12791209-c920-46c7-95f6-c353ef18bcf0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot3D", "[", 
  RowBox[{"u", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ","}], "]"}]], "Code",
 CellChangeTimes->{{3.801176769377108*^9, 
  3.801176811513068*^9}},ExpressionUUID->"f3a1af77-2c91-4440-83a0-\
bb8ab0c6160c"],

Cell[BoxData[
 Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJxtXXlcDd//vnFLV7qUJGWpLBVZSkTbTMq+ZudD9ixJ1rKXLNnKvgvJlp0s
oZqh7IQkbShuslWWa4nkN37uveeZM9/+8fq8X+dz5rlnZs6c834/z3Nsxgb3
n1BFJpP5G8hkVWXav4bsv3/VTErD4KiPI/Yx4ngl4y/TKymW36ficva1949q
Matf/Yvz9TXxcubMdG9133OnxfFwPfbDq0XrKs8/+hcPt9L1nzG8ovrHuQmM
FofmX67W5tz8hvMfJWnbaeP9qo3tc23vbQ8tDm38j3VkxpNClYcWx79/S7nq
Q3vf3/nplocWhzb+rXfmwSqRn6j+VdyH4g3r+YGlmrhKg9eETV4TYrjCxMVd
8/9rfp8p65XyNmxmhssVMX4zdoZl+w5nzUI07TN17eMi4qa9mD3CXdS/0L6k
bb2at8J8NHHtnxkbFzZq9Hq/gVR7FXNmTf8dKxXnroj6F3DdytiW6b311BVx
P2om4ZjLi4bLjojxCP/OHB/ksqTlIeq6KiYyr7jX0MQIKi6TdXGvF+SYc/yK
Fp82nvnT//bV9+O9tL9TE+Xyrz/1WuFj66UdR03/nGtfb/cvmzqliPtRcaez
C9Mc8wKofko5zz+T9nSd2pBqr+Y2TbV+c2HhCEm8Tud2R+0bzPkXZ+vo+snq
3DPVKDlQg8dcd90vuYnhKZkbJXgmVqSvXLRcg0fXTyY3/mOGhZXJFqq98Dfy
hN7Hzeu96Hg965KPbmlnJf24xp++4HUiSYKHLVS6how5TMVlslMNe8QfXXNM
Mz51df1U+JUcOlKwR4Onnq59oENqrrowm8KjZIf82TjUopkpI8LD1mJvGI0O
rBbfmhFdV7hv79OGPu/2lGVE/QjxwSbFoXybcvHvEu5bFbuo1OaP5eL2wr+N
ts9wvdFeXxPXvr9K3qGgsEOunNW8dwpdfEbvJh7hiUXuWtza+OTtCW8ia7TS
vNcGGjxG/A//qXyiSUdN3EgX7zCy4M7zz3ZU/wo+41WXz00UHpq49v2V89nf
VGOckv/TxDXzSbgBv3lCk+5Fcb7UvKHg97W6/Ht4ig8Vl/N58mLv8x3HiOcf
oZ8Fnj/nJT1sTc1jcn55n7unEnYO9RD/XjlrbGxXdNV1spf4dxmw7ut7vntg
OD6F+l1sYEKzyatix1JxOftyoOezbzvsvcTjZsBeGLoo+oGVZQqFh7Xs6djC
tm15soz6+xFY5abfL2/xPCn8rYr9NPn9bVcP8XjKZP0U+deW8QM0cTL/RE56
uVn1RnO/tPOqEFdzD++ajB9N9a9iun13OVOaN+JfPNxGN27h/b1aRPZp6CWO
V3L+4y/P/bRDliKOq7lPedefLU5m/7UvsNaMgx7fxe222aqzVuK4rJwz0T/R
fPiQz57//5+sta7/Iw+SPIxvVtW8X9rvo5IP/Rg75lHB0H/jxjbS9G/E35q3
rvfS3/2ofhR8X+cOR7K/z0wW96PgN951SK2Z5eMp7seAn7+yQWvfsbOp9nK+
wbnIgLotpv9rr5sHzFj7d2V3M9f2Er/XQnzHI6++TVUmkvf0ffdPt9X9v4jn
GeG9ruO0I6n5wR7ieUOIG4y1GXTlmUo8Xwnzw4EOHunTzTox4vGXsz6G7s8r
Nj+j4grWQF+l9+xiIRVXskvy9B/Vfvv4X1x3vwzYre9dX5kr31FxI7an8kGV
ycFFDDXObEHj5Fa7Asu0760mrmLMUhRfiw7M9NT2+y9eyjTcfPnYtZXLPLW4
//2rZna0bheQdXdCsrh9JjO3RtftS5bMoNqrmJ5MFcemrccli+MyWW673JEV
lSHJFB7uZVX7C12OrvPU/h5N/1zQ2yahQ+M2JWvHRdtPjTBP1+O3H1D4M7nb
ygl7R9U/TvUvk0VGXNzj+CiNwimTNdkR03zus1sUTjl/x+9PwK6G06l5TI+v
u8TN4sWjEGreq+S8n1p8GDxrnmQ+3Pvn5HW7lb3F6zShn5abts+99yKAmjfk
fFARP7uK8bQkGs+OcTBPwrx6wA7nVTI/j3XA+Vnbj4J/UP1/zc9G/OQZOM+T
75SZQRH5LujeIwX/VrXj3uFdr//Fte+LgEf/3a3Ytpt+avrRvo9yPktd+465
XhfNe11H137rVYNsh852yeL+5bxTZh+9vpbemvtlpotXtTrssWxqJ+p5kPPr
LtVNb3rUSNN/LV3/7s0DW/aM/Kr5vdr1mIJvz/R4sruBmorLeb1DYTNUM03+
9a9djwn9TFdFnMqOeZ5E41Hrn3a7zxpq8Kh079m+HMfCdr+8xetP4bmeu3xP
wbXTPal1ppId0NXwd2Kd9uL1rfBcfxtya8rRKTZUewUb3i+83wJ3O2rdK2fj
B9nKhhQ3uyIez0omsV7e3QbvRmrW5dr7pce+iYq1mBWzUINbd7/Y7iFz5t90
2S+e94T2VulZnqYOU6l5Vc5af93/u82q0dS8Kmdrfwtwdjw3jVr/yNnmI5cE
Vfg0pb7LemzfsR1SDitbeWl/pxa/e+i1+iEuBlRczsbGni81aFOHWifosXU9
j1u4jjBI0Y6vtn2Vzh0a+S3u6iXGo2Q/rR5e3CNoiHg+EZ6jRF9nK/t+Qz1F
1xWel14b57q1Sd0lnk+EOJdxkU2YPlvcj/Ac5TpfN13Ufgk1z5ixfIZ9jv3U
CE0/5Lv2QR23v26jzv/iun2lAf/7hKnidO0qmv61+0oFP6L2hss7TRpLvqfR
/V6wTc26Uv0Y8dVa5/TourMK1V7Jv/KynhrTylPynW07atTAUjZQ8l2esL3U
XNGrm+T7fuXrzYXV1val4nKeM30/6vwAzXeEfNf4ZjNvKwJ8WM08QNY5cT1v
OP0Im5gs7qeSeVi/bOTHERmMGI8e+7jC5lOFe4Fk/94w5tveTb9eitsL8/F2
79T5f2RXJXmAyxZf2UdL71FxNVPLdl1UYUAMHed+t/Z+833MVy9x/6Xc3thH
Mx8f+5oixq/i5pRfvdCknhEn7kfYJ75u8UZl/iBF3E8mZ948bm6aXI9qL5Nd
8rNzL3ezl/zeUjeDVUsmvZKMT4fa1S5taVxArRMqGQfHYwmyAY+ouDCf2Oxp
1X3pG2q9ocd+PParZ7XjeZJ1ztN1wZl2rfMpPEp2Ed+gnvmtfDEe4f2aOK+L
37TDj8XXFd6jngUOVTumpor7EeINIi9VaX0zWdyP8H7dS4hRqNofp65rxq7z
cx9XI3WObl3+70/N6flP39D3d23NfK5dn5dzys5MbGbyb828qp3PK7nNj3Ye
VZpUUHE1N9f8SWGNKxbUer6cq5g53yZ/9mvNvE3yPPOdJ1VxzjCR7BdsEzo4
B8x2ShL3k8n9YNc517uh7V+3L+BK4vucHpFoS+3jVFwQ4/q7pKkBhaeUG5gX
NfSJsZy6rpozeVHLdvCV+vT+i096ciLLat0U6nuqx3d7fcL6U8h4zXuq/W5W
clH+259eyp/jKe6nkltd31LhFt8tWdSPMD6J53vvbrl2JtVezS1oXq9oyLgp
knXjxlFfvh957UrFVdyUqPtb3VWmVFzNmX2+VtLfyVOyPvTw9h38+7EXve7l
jne0DU7a0V6yLj1wbp1+aktfah2iZi51rUzW7/CdytuUMy/n1Xxdav8xhRof
psfig3sV2aVUXM2saeDAyXdo8yS68WHyJ7zaYH7kCvX9UjNl7xuerTvhDPX9
ksk6ObwfWffYC8m61+n95qlXDWMl6+eXQz8nzG76iB4f5uLcjweM62TT63DG
bcjFXZnZV+nxYe7vCpoyfE5WshafFleNhQdO+Bv0Ej+HwrzxqyhpaIOK+tQ+
t5IZasbb/I62op7PSsZ3YLcW/Rd40e8X82qB7S/bkFbU869mNh444VN9Dp2v
UDGusZVBMkM9Ty0ObX8/gy+P3FZfTj8/TJ7P9ZFdOjKe2utp2y+5El9iN9wq
Wdy/mklsNL/lrWYunjSe0iz9ItseHajxMePzTpr6L2V/XRb1z5vyKy1f9r/g
8tVN1H+4CX+2cI3BrFkVl0X9CPHsoOav6gYnu4n6YWvxabF12+2P+ShuL3zf
i98Eb+7S4qOmvfZPyVdZGB1gz5Zq2mfq+rGdGTw+IjjrsnYctdf9b9fDMCbp
oTgu9MM91J8eseuTm3a8tP2c5r1T69W56EbjeViZULi3VokmrsvX8eOeZjUs
PGBAvXcK/o77rEP81OrJ4ricvxpifWpOiT61bjfix4wZXa3vpU8e4rgBb9VN
X3Vz713NvobsC37tLGs37HsxNR+a8aOzzt12CrBJ0vweVtMfz3kUJA7ZaSne
Rwjj0/udd4Ae0yJJ1I8QT3203upPv9/uon6E8al7d8GDB/3sxO2FcVCftvYr
M7DR4NHlN/jw+4E76hzt/C/OWurw3D34wPLUC01eUbs+FK67WtHz9mvzPuJ+
hHjm6H3D2DKrJFE/Ap5NC2YFd2nXhbqukm9iWe7XuoM2D0bGv/GxVKZutiV1
XxT8maA/n/Zw36j2Sr5t9MHXO542kuwHc6IL9PRSbai4ET885rGff7IFtU9U
8FHvDsbPamRHrZ/V3KaajTd4p+zUzM/aek0p9+Hl7krPgTEpovER5vnCwMGX
Zt7f7CWOq7n1sXcrrw9a6SUaH6Efv8QbL++M0eYb6+navxj8o8Fee38qj13J
xdebsqm98y/N86nbf/Erh3/Qu5mZkyzuR86bBW10cXpiliJqL3w3qyv7VSx8
n0Pluyq5EMtjw/WWWnvReC7sv7vfxKOhZL/Tz7x7um2r7uL5UHgeG383Lq4Z
4Sue3/6uu1rNPFnyrBM17ynZt4vr1UjMVojnSaGfI35Vrj3Z9IWan5VsTPnH
0O4TSjRx7Z+cbXCj0a2Epy2o74KcDXarMmSs2Xeq3iRnXyW+W6zYYCnOrwrf
sSVVjvaJat6U+u4YsC6zDw9qcqKSWr8p2Evn5U8vB1tT750ZaxfqfqhNo0/i
fZ8QT9yc+Wrr7v2SfdyeivQIrnOa+LspzDeR/c9WT/e9K9kPmigNp5dVT5Ls
K4dlD+tuevEYNe8p2VVXOpUVzqunq6tpx1mRU5SyzNxXXG8S/p2zR3byomsR
td5QsvHbLG8lDtKsK8j8wz58231k18M51HpDyX6ueGEwuzCHrtcw97uUhlxa
ZS/OJwj3oaLfkW39Fnak8gkyWdKBLm2989pT7UuZ7iNkiyJbmVDtVcxgq6dj
HNfVoeJqZrP3pwYm1cdK8gyO3+N2WnZ3oOKVjNH7J9bOu62puJrZZ7Ri0a6+
1pL8RtCw0137+DiJ48JzXRpbefTPz8cp4nGoZOxdz437r9BPst/51PntWSO3
PHFdWBjnkEGNJ9sGXxfXhYX7Uxm17rj5zkNUvVjJ9u2w+6ptqKY9mZ9Z5aKM
Dut6H6HGR8ne3NM+/ozRZio/o2Ddpuxvc8Y/lMr/GLDrDu+oZr8pUpL/MWnj
lTtrXRzV3oj9UMs0NXH8cqq9gn3r/um1+YHDEjzjbk0+9Ljdbk28iTbOL2TL
g0wiRv17T0c31vbP74rd6tx7znhNXtFW2z8/Yvf95IiOXT3EcSWfVn3z9p0p
Pf7FrW11/fT73LWg70wjzXdZl1fnR96d+XbXxsZUPcWMLzJbedfc59MVUT/C
93Ryg4E3r+8odhddV/huxhePvtekSXVxP3/XRfk1u/r0znMX9SN8Ty9sGd/+
vFkN6rpKfsKk0y4nuxhQOGWy9K+D4nsW1aL24zJZ1RZB5uO2WlLPm/BENww/
NHSfjXifLux31kZxKaufvJbkEzKKO6cPqJPhJe5fxWX5/Rixfq2cul9q7vvJ
fZc/ndfUu7X3S/gOHpr8ucXWmT4povER+hnn261L+oGNXuK4mivuu77MxHCo
l2h8hH4c9LN2vrkZTNWz1FzI2Mer91j38KLwMAHX1n+yLx7DiPGUM08+L464
ahnGiK9byXxmj+ROVB6i4mrmyHTrIW6OcxkxnnLm87daBj3iDlD5DTUz76uH
3lvb3dR9UTF+hsUGt1pNpcefGTHr2YyDF/tS/chkk6/9XtVmjz/VvpR5OnHq
LZOxK6n2KsamUy2XmY6jJHieXgsJy9+yk4qbsXf0+c7vXy2mcJqxOX0eJ7Vd
sFGSJ7k412b01mGrxHiE74zLiOH3FfPiJfmWxcv2vnt//IQkb9Olx9Ld1+2u
0e87u5M3fPs6dZj4fgnzWGGzqjdjbTaJ74vQz7kPwfsvTNpI3S8l+2x1lbb5
By6I79ff7yDv3jjVKokaByWrKLr4rOPTx1T9q5Ljaw7fojjrTO1zy7mBPbrv
bTq1LrVfFtZRk1c/VxT2oepf5dzVxQG7Ty/tSK0T1Nwlbtxmmf8ASV7i1JUm
oVV7auqhUD9aH3lg0MouiZr5gdSbpm8tuWC96aCkHrTsTcTw9quTxO0FPB9a
/LdROTCeqrNXcoyTTXPjuFsSHtHjg6PC+AlHqPqRigk1ZpcMGLaL5hcxebWt
X/pVmUvnkRjDrAt3ql9ZJeYPCM//rMlbt6/tGUPnqRjn4KHlTTqykjzY1x4n
Xm1bsV+Sp1rg3KJsv3op1X8pt3hwe6daQxbT+LmdMzIW/7LZIMmPGezLfnDa
ejz1uzK57cXfij/oraPay2Q19Zue8ryzXILHLgH3ZSTPln8P93EkX9ejDPeD
JH+YlQH7QcJr4sb7wr5S96fmGuTBPpSsY/mHbztbNV0beUWER/gOFr33D9n/
IIpaPyt5iy3PugfXOUC1N+DtbtS4pyidTuUtFXyNFzeurzh3mIrL+YzUsd1U
FfsleU7D6RXJEYONJXnRyS1C80t6a/OiJL/63f9yeudNPymclVzR1OiYHvfr
0Hkk/o/8TUx4RDm9L+ATwlZb1mtoQu3rVYze2zEDnC78J173/p1vvbaUenUb
L8mzWdest2pboj+Vl8tkGuQPPTjWsKOXuL2K6T9sd12rOJaKy2TJg7YULF3h
S63DVVzgAOCDAX/s0A3gjwGf6gLyzQgeLu038MR0/ctkc3OAVwZ4lgUhf4zw
gqrZefjt+35JM26ER3T2+E6btMdHJXkJf6fJ3g6PrlLtDXiT4DHdLw4/SuVP
FHyazfoDtfffk+SZ5cXLG/3nm0DF1dzPiTjfkvk53RnnZzKfR1eB+RzyzyGX
YR4m9UG+8QKctwmeA4kwP8P+/Y61XBY59rt4/y7gCS4b7Vca9ozaj6u5Gj+n
zorYYEHx38q5tYptPydc2kzlMdTc2JrX51mH1Kfuu5o70+mZp0NmTfr55I6m
r+x4fOIdSV79udnXp0+mn5Tk5+/GDxpdJ2Kppziu5kz3pW99VHpDUx/U5bE5
9kq5g2vieiqfo+aej7pWbL34If39Ypx65wZOeuKtaa+dV8uZDS0nVlyVd5Hk
RRevLd/Z81svDU7d94sxfjU49cAGbR2T5FejmnYZkseYS/K0K0evN546y4P6
/lYyNXOMlfejUsXfa+E6Y5fvappj/YDme7D5vmF+tcbepPLh5Uy73JT7L5oc
p3gjlUzeqW7Pf385RsXVTO/xfs+5vPPU/VUxDr7/a79cytQa9b/2v2qmfifY
5xI+J8P6wf6aPD9MzXa4Xyb73EV7YN8N85tF0L0/YWvPUfNJKfPabZh/HVkK
zV9lrA4/vvqy604qrmauj7re8nr3wzR/lbkz3jlu5ONtNE+V+XIn/Ugzs2yq
HwXro9zUq9frZDEe4X2N8C4f/rX9Vkleovms1p0v1t5HtTdgl9bl+yyeNYea
9xRsvbkDPUJbb6bicnZOQpcaGx4souJqZkcfyONBXebJecj7QX0nOAjyh2T+
YSxE+UNdHY0NKIA8JODpqIS8JeHzsJ97bPjqvD2O4mcasV5WPu+DH5+U5Nmq
Thyz0bvtYYp3ZMC2NtiTtdA8mlrPKNhjt/qn+41fQ/OR2A/7awwwrLVNUmex
bNDj7twTG6n1WDnzKW/UnNFT1lLrsUomLeh3iZXZEar/SuaUc73ATR3XU79L
j03M/nn8rX2CBM+W+mVnspfS60k1s9wE89KkTpQ+GfPYpN6ULcN8uG49xpT4
QD6c1IWZ4njIq+v+hPnnEeThYX117z3WWch67PNBrMuQ9Zvea6zvkHqK4zys
7+h4RLyeFdaJtH9K/t0prCsRPH4NzkGdhdRlog5hXYbUd75uxfoOqTf55v6P
+g5vyh9YinUiUud6vBHrSro8Jz9gIqz3tN9lAc+ftrg+JOuNZ1NgPRmu4+fw
N6riOpDwqAdNw3Uj4bP9h+tDGJ+0tbgeJnW0Pi9w/UzqceZvcL2ty4fzT7Jg
nUzy6vzdO7iuJniqX8b1M/m9AzyBJwDj82As8grIeE66gfwEUm/aawn8BJKX
5p36Ic+B1Lm+jAdeBOG18guN/7N+Uuapyb/V1eH58yf69PiPzSi+n5Ive2M+
NGzlQE1dSce354sm9Kp3/Y1m36f7fin5iZOC6uxZo+WfkzqRxef8dQZbBlPr
QyVfq5YJ4S1AHS38F/AcoB53YhfwJUg+nGcT2hO+BMmr8/edkHdB8Cy4AjwN
ouvhFOGBvvPf99DsL7R1onJOPuP58+KqvSV1opxeAfbRf7qI60rCunT3lEU/
X3a0o+o4lVzZnIr9H6fVp+JyvmbWy2vd6zpR9SxhPvlZ5jVkrYbPAPyxLc97
2I/40kLCN5uwqnXk8jD3ZDEeA36YfdsvI2pbUHwzOW8238OzyhKWWvfK+dZ5
ZhGTKppTcSW/I6h/jYrNmno9PD8/VGuvnZ7+WcxXFO7XdqcqiV0G1ZLUKwcu
f2uz29dZ3I/wPC+58Wrghx0W4vbC89xzfu3mEcEafizJU/Fmi1uXVpth/q8f
bb5LwBNjVakOMlNI8sZ2M05uqu3XVPM86/hLfN7NiMZnbNOuiPoX2l+08/m6
cr6W56OrC/Cmg4ySrhtQv0uIR54E3gLUYS+uBJ4D1HP9SjnClyD1Aj5wGvAl
SN2Bb/IYeRcEz5elwNMAnn94cn7PDH0/iS6g3GxShsFXH4m+wKp27LTztzyp
PHM5l3lRtqupoimVZ1Zzd6t9v7q+FpsixqPmZh/fseWxbJykjjltfsnDVTM6
UXXYcu5g+rni5/bOVN22kps5Kd0ypFMHST334Z9fqo+PW6SIxufvvinZpFPo
QDsJnvbMUSuTlW5UPyqmW6p9yJtL3cR1GeF7aC9fMazGvkGS9bzesJ8LrXsF
Uu0zmblN97342rYTJ26vYj6Gf2ys72JMxWWyW0eb/pozuRvdPxfwBnhBUKde
HAA8Iqh3X14IfCRyXe6IiI+kw8kdQF4T4LmOPCjQD07rk1P9vtUXMZ9EmF97
9bu+MfPT78sy0Z8ZGz6s2CVx7TfxOucvP7D+8aAhR56J1zlC/wNDbsx1WppL
r3/Yj8NaTJ1y/LWmf7K/a2FdYZiSuZTaDxqwdmzkG8slo6j9o4Kdm+JbJXRa
ArW/U7CD1lUJaPH7rHifKHxXK5v3P3Lm3V1qX6lkLxtW9Dj/6jq1/1Wy3XsF
LMutlIvr5kI/Iy7/qkyaZUztrxWs36VOvW5+1Oo9Sf1975y68fO6aXnsOj4/
u87exTxtdxGVN1ayF97VffSpsJkET7NHUBeDOj6rhjoa8AEu74V6HFkfsksV
UI8jvCZ2016o64Fu9Kcn1AGhXumP9RSsP2J9BOqMKqyDEN4IW2sB1l906w12
Yneop0Cd/f4FqMvAfrP6p+sNXE++kuxPw6pNbNQmKl+yn3Va1jDWf8k9Kq5k
A8d+War8lSDO+wn9DDjV2aJl5XuJbjGrwnLOgN0mEjwl46EuBnX81aI6GuED
NMN6HFkfsr39oB5HeE1s6xCo6wEvosVpqAOS9QabdcbJ9M7UR+L5TfhdyTNO
LDj97LLkfhVyyunXuu2l2huwu384z7g3hafaK1jLCSm249bEU3E5a+3SY2+v
TI2OG3TWN0eBzhp02fGoywa+9GnUd5P1GLtlBui7yfqHHVIpA504wVOnCejK
oT5YFAT1d6j3ZSihng51vT5YNyd8csbvCNTryfeUOeOG9Xfd94spwTo+fI86
XrN0mpI9UvL9Ks/LvJtbYzL1e1XMykUfF+/tE0DF1czTIPWKbr3XisdZ6Ocq
UxDf+f0CCZ7KST2UEQfjKPwK9m0T0KmBrq3UGHRtUNcbnQ/6OKI3ZHejPo6s
x9hOctDZAU/DVgG6PHg+T+QdqBr7fZvkef7wpcKx9Z6L1Dgo2OyFA/ZuqpZB
xZWsuo8q8nFqGvUcGrFv+zUsW982T4LngIvxLsvCfAmeNt+w7kx4ILyoTk34
JM+x3k3Wz+xmrHcT3iDbvgTq5qCjbHQb6uywHo48/np2HaNn//ahsH5ueu50
RkLOdnfR+Avr1fULoyapPS9fEfUjxKu6RioLk16I+xHW8xkFl2fOT94hbi+s
54tHH35vUjuTiit54yXHHuanVhXzQAQ86xQvtlydXyjhb3hYRH5e15uKC/3Y
dutqeOT5n3/9kzo1//nCC4e1wx9r9suEx7Jnde167nFVKL5KJaf+7ft7TAPX
FBEeYZ3ZbV7RoG2L2krWz0ZZYzIHpfqJeRHCfnBrycI7I+bWp9pXctEBi3j3
yI8SvQxfLXzVk7GWFI9CyV8y/kR4d8CTuTgYeHrAt6mKfD+iV+V7LAW+n64f
A377D+ANAp41dZFnSH6v3fhDrZM396N4IOXc9g/zHAevUHnS4xn1sOqA200c
JHyS7rPOd2esNTxJwgPhbNusslkb0ETz/SI8lt0vD04I7OlA81WYx/PjBuel
a76zhJfCzFphfiq3+SzJ/Hy2dnKeU1IM1T6T2bpmmqs6ugknbq9i4t6/LLry
cwTVj0x2crfdpHldvOj+uYxK4N0BT6aoGHh6wLfZH4N8P911uY8bge9HcHKH
DXOAN0jw3EGeIfzeZ69TfJy/0r+3lDE5ufOj/O1Mhh7P8Bm890+rHlRczWz/
WVt+ZoNGb0h4RAzXNf1BqpmHZv4hPJ+9CcccFzq1pfpRsIbj7l4+VXhNjEeY
V7fu6rnpydOHku/Fg5CjITnds6j2BuyS6B6Xv7/IoNor2Gb5F76viaB12XJW
P+DAqjp7aB23msk9BLw74BGxC4GnB3ykj9HI99O918xi5PuReYB9NAB5gwTP
8C7AM4TfW9yw92AXn0zJ+DS82teshddDyXj+rF+tsYVFKhVXsrOU7xlF7Hnx
/RL6mTA1tmHXP4eo+6Vk/ULavlLPjpbgcUceDvB2FnHA2wH+z7GPwP8h3wuW
+1/8H+H7Vd4UeETAg3J7ALwj0MtkBoNeQLefksk4Z9QXEB5ItYegR9DVKzO5
GR1BRwB8kvEjQHcAvJRtq1FfQHg4PznQL4O+aWA86JEBv6cx6I7B5+dwK9Q7
E5wlRahfJnjsfEAHDfyNb6HgNwJ8jPErGoM/CeFd1C9EPxNdPYhzskIfEqJ/
fzcafEuABxX6AP1JyPgc+I48AeKPFGCHvAKCP9cV+QmEH7VkKvITCE7FReQ5
EDzZTYEXAfyrY6Fb9KeF5GjiOj0y77PBLP16ywwJz2HK+qDBxnyJuH4hjEMb
y3oFGzpmiPPzQvxDqVGNoOIfVP+V3Ing292WH/oqGR+j3dA/8L5StiAegv/G
FsAfTvhsz7/CdQHnKCfACXjS5yEewk94eR/4CYQnw41EvgHwUtT+wCvQ8T1K
uZl1kM9AfCGCOeQnEL3e5w3Ac4Dx8cgGPSPw9NzqgT4R8Os7gA4xnOgEt7xB
/SPBaX0O9YwEj79IF0n+Ere8zMydsZ7S76u4G6ZN19YLjqTiam5ZcWzF1677
Kf+rTG6j20yHHvJ4KX/s0fFZ7+7E0D5a3IPg3J4jrddQ769MVkexq3PWmCZU
PVQm8zG8VbLA0pPioclk029dPrKttzNVb83kXPP3fd7dm9JlCPGcC1bmVmu0
dVWCZ/Rr18/rqzennmeZzN0SfR6Ir8jPDPSFILyLbV/BX4LMe8wbHv0liO6v
n+w2+FQQ3uPAm+BrAeNzGfVK8L2YshH1TQT/+ZuohyJ8yBkiHRPBOSUedE+A
51UF6ptIvTtrHtRToH5dvg7qI7o/NVO2CuoghK/IuOhFkfoL+KplPcR6CvEj
MuqMdRkyPplqrNMRnme3KVjXI/gzS6A+CD5IppOgPgg4g39jnZHgSakBdUnd
n5z/0oHvPeDgaUrvI+dr9PvZqP3W+ZLv14j7XkObHTokfo+Eea9PdBWD9fe1
7xfhH/oonh79djteohPv4Wk4wGpIguT9/em4912DLQOoeCX33/4nO52H+NI+
Hvwipc/qrLz+1H0p52a32nRoZNBECc4jj8OmT1/WV8Kr9GvUYXK20WDKP0TO
67WwenE9+jSVh1fwVyfm5sUOPk7FlfziOtvS/BzuiPP54Qa86Y7Efodb3Zfw
E4zPxrnZOl8X8wqE/g8ZL6h29FkcpQMVxr92k8TINXEUfjmf02DEzn4eRyT4
TTt/v/lqu5S/unBU4Mulv6dT42PAx20PC5+9IZrWf/GPFs3Qm/1UO98SPoC8
Y/1nd2skS+r72V72tk2/hUvq+DEZBbMcj57RxHX5fH7YmV9ryrdeEPMBhHjV
iEXVR644S/Wv4KdVURjvf5Mi4bUevIn9E15upSXiIfij3RE/8XObPQWvS3Au
SQCcgMfgqyHgId/HOnvr2Dc1KqZ4hmruR8c+5p1HavXmhDf46bhqQIOypxpd
p45vxhk08l+9eFUhxT8s5b5c/S/hRPNbVP8qrm7tgLl3txVI9OxBi6B/WG+Y
bkc8BP+6jYAf+LQ1W8B1AWdyHcAJeH59ngB4CF+3iw34HxJ/RSYS/QyBF5eL
voWED8zURb9E4NeFDwX/Q+DpLSwAH0UYH2Mf8IcEnnDnn+D3CPgr/gNfR+A/
d/AFP0nAaVwG/pCAx17kM0n4dYEHUZeqW48xhVaoYyXf993BoIcl6y6mmhHo
Yck6jVk+BXW1xK+glxXocGF8Onj/L56tinmiRF4uwR9aDvxe8Ekw/bAV+L0E
50YRT5jgsW0CvGLQUxdtR18ynZ6R2y7yMSPvV230Q9PVlfT4gprghwb83ltf
wVcNeMJzf9gRHzbYv/wsQz8N4pe19zj6bxD8OXPArwP8Q+xcwWcDcO6Yir4c
BM/Ea+i/QfYvP3qBPxupz/JhH9FvjczPRW/BV023rzHgzUPBzy2c+Gpu2Yr+
bIQn/+UR+ryR8XFLQh0N2Q+OcP5fuhs5X7MM9TuEP/+lKeh3AGf+LtQBETyn
IkA3BPyo4FaglwG+09QjqH8hvCY9BehcSH2TD+kL+hrwVWj5GfQy4J8QNQt1
N2R8AuzRr5joAq7VQH9jgj8rHvyQwc/Noz/4GAPOE/PQ95jgafMV/Y3J85ng
DT6E4Du3zAV9Cwmv6VwV8D8kemE+xwz8D0HXfy0CfBRBR5C3B3wX4f294AF+
LPC+RzfcAv4tBH8dC/B7AX3B9T8XiE8L4HQIRF8XgicsBP1bCJ9kAfLDgR/i
Mhr43sADmXMXeN2E384dQT45+PfGTQZ+OPgATzsEPHMYn/KBqKMhuomqIt0N
wf9UpN8hfsj1ckC/AzgbM6ADAjyFb0A3BPO/30LgIwHfO8+ggvCLgNft6Ik8
Ip2ehTn1APlLxL+uPY98JKJryJgMvCbc/yIPEL6ngSLeIME/uQ/wD0n+h2mM
/EPAycxEHiPBc3cJ8B6Bb7P9G/jXET9MNnAg+NEBr9vdF3zniP6RfZQAfnfA
D3/riv51hGfu1RB98Mj4hKQiL5HoONLDkccI+MOBDwn6lAbmyIckOIcWIa+S
4DH9AzxM8Cswu9TxkeMgC83v0X1P2cb1n1bk3X4oeX6yr42yfntULV53CdfN
3h/U5KLXHYm+wKv14oCqG75Q/JNKJvNzyDjZsGeS9Wf89Qrj8cffUfFKZuuo
mymv0iupuJw942F/++YBK0aERxgfzxq1yho2fiPB+bKJzeitObxEN/Ftz94h
DhZqyfpzboFDoy/vaN8JYZ0/t4wxjbklmX8C278Z/sT7K/W+ZzKP345rnWHw
VFMvIz4VLnLve1fWFNDvO/N0zPzU0T4PJeOT7wr9w3r+zALEQ/Cfzgf8oN85
r4DrAs4JxYAT8LQdhHgIf8MvFfgbhCfMTJoGfAzgpTSeDLwLol9jniLfA3xB
jyJ/A/wuTEKBBwLj0+E48BJBl/R45f/iMaqZBSI+JPHZ8G0MfEjAeb4K8CoB
TywPPEx4PsMagR8C8SNivzugfwLhWdmh3wLxiWJD0ScB+FqzN4OvAvC+2oj8
E8j7K3MCf0h432N+gN8j4M/sB76OoG/K2Ad+koDzVWPwhwQ8V3+gzyThj8Wj
HzjRTbClU8A/HHiDRweg37hOH8p6yMEnnKyf2QR38BUHXmV6BvqHk/HpewJ5
v0S3ZVYDecIEf2h94BuDP3ybK8A3Bpwx5sBbBjyRKcBz1v3J2S9db61KXTGS
ztcx780X6Bs38qbyUWpm9JqlFaEtltB5OXZ5K0f/ew260Xk8pvXE3R5xfgvo
/CHznbUPNPWYRecn2eXnnldrGtqQysfK2SVHrdod2lGbzn+yI4/llpceqyvO
rwp40vwX+e+8+0qMR4iH+h2Ln7b/pwTPsQ7rPJ1LCqh8l5w18Ac/WODHHjEB
f1d4flx7gI8r8a9mU7eBfyzwV/Ongx8s8GC3fwdfWRifTiXgPw/rDcV18JMH
/FZn0Dee6ON2zgW/esC5aSn6zxM8ea3Rx57waa+cBH4U0XOxNT2A76T7U7KD
xgOviejF2NBLwKcCH+lxH4AfBX5WXmuBZ4U6vj6oOyC6P7eWqFMg+O9NA70D
+GjdcVhK9A6As0FD0E0Anrww0Fno/sz4pJSE5wWn5JTezYx3XBb38kjT2Eti
PGa8i+3dG1FtyjqKxoE35beqj9wb5i2T6NG8Ni2YlxpWcEnUf7gJn76lq2++
8Z9LYjxK3tII+9f8Ce33WB0APAS/uQg/8UvMH4PXJThriHASPJkrEI/OT4zf
2Q/z2zp/ad6yNebDSX6jmxXkz7XPrXDd8/GQ9wY9WsJczJMTXZvnnv+VDzfj
cy0x/1+pi7fqjfUCgv94VawvEH/LbeehLgA4J8zBOgLBU7RvPtQLSP++5lgf
0fmz8QGbsJ5CdG276kD9JVznw8abPIe6CejjWllinYXo7GZWukI9hYz/ZQ7r
R+R+mTXBehPB39Qd6lPhRM+4/30WqSsBztgNWIcieKa0w3qT7jwLXnkX67O6
82v4rFpYzyX5nztVof6rXVcI1z14Ceq2oI/LL4E6L+jsor9hPZeM/8AyqF/r
1idmfNH7JlDvJvifDoP6OPht1s+Dujbg5PWhDg548m7nQL2b9C9zhnOdyPkg
fN1SPAeK6Mi2nYPzpMg5ILznCDhPCvRoL9/CuVSga/u5Ds+xIuO/uiaeF0Pu
V8BBPF+G4L+1FM6jAX1ltVQ4RwZwukfBuTOAZ0LVduR8GdCjBT1G31odD59v
Vx99bkl+zIsFv1yi1+BnXgK/XDgnIiYMfHfBzzN6P/j0wvi49AJfINCNDokY
Aj5CBP/KKheJHxH4iP5GPyLA2T0RfI0Aj08L9EEi/V9xBv076O+OtkI9O9HZ
ZRiCbp3wyfm5v0AvD/78IzJA/w66zlR/1NGT8R/hij4Y5H7V7I6+GQT/ssXg
vwF6z4kB4L8BOBvago8H4BnkhL4fOj0Ff3E4nO9AfPU5+RE4rwF0dnZd4FwG
otfge46B8yBArzeMhfMdQPc3ejaeE0HGp9oE9OUgOtaEM+jjQfAv7wp+IKDP
7ZADfiCA038V+IoAni554ENC/Nb4M6L1uSYuvI9bj+F6njw/jrj+115XeK+v
D4B1O+g9m42BdT7oRgOa43qezG+xG2H/osNvxkceng/7HYI/qAL2R+A/PGg6
7GsAZ/dkB7IPAjxjw3C/Q/qvuwzOMSH+dXxSJzj3BHQBr+3h/BTiU8cXzIPz
U0BfEBsM57CATmFnKp7bQsbfLRr9Zsn9sh6F/rQEf5tE8LMFvXDL6YeIDy3g
HPwtnvjWAp6pO8CfFvj8Gd1APwj8/FaLUQ9IePj6H0D3R/Q1fHki6A3hPI5x
jqAfhHM9Ei+gDpGMz9kD4BMCOujx98BXBPCbBoI/CZwX1h/9SQDnRxvwOQE8
mX3QF0WLRyabj/lJ3fMskxWPxHwmyR+evgn5T908k8kVNYS8JehhNxpDnhN0
tY/3YT6TzG/xVyF/C+d9eNfGfC/BPxfzw+Bf3acV5HUB54iDkAcGPOklmO8l
81tUY9DDwvksd0X6VvL8zKoOOlZynghv4w/6WThXbm9L0MOCrtwzCXW1ZHzW
GsF5f/C9iOoH5/cB/sptcE4f6M2To+B8QMCZ2RPO+wM8kWfh3EDQX3QrAb0n
6CnGtQT9JugmOv0GnSbR93H9DUAfCr6sE0+D3hP8V+3ngm4Uxuf6afApAh39
r1DwNQL8abPRH0k7PqXcPivwRwKc7XzAZwnw1EZfJng+nb7guU6655k5/BPP
gdLhZ4LxPCny3DJv7sJ5UqAf7BAN51KBDtG6JpxjBe9vIfo5w/t+9h36PxP8
jdXgFw16/Nw14PMMOFuOBF9owFMo8n8m+ZO2i0CPBvpoKxb0ZaCDTl4BOjLi
z8OO0gf9GpzDe+gM6tGI7v5DHdC16f6UbKgp+BtDPsr8EfgVA/5+48CXGPT4
r63ADxlw+kSBvzHg8X8FPslk/8ue+3BpasKnLE3/unwCO3N4gUOs53aKL2rG
tqo+48++Guc13xFd3oBdZ2Ee97bdKk0/RG+eUrfOzEkWlF5AwOM0222y5Z+d
ND+EPd4pIyansbYuSc7z2jh7z/3VZfS5M2as73nX6jKHDuJ8pjAOH/tPbZM9
3kScPxTwHM1J6x+VR/na/fUxONRP1aubI8W3UbK1UR8Heu2d00HvBrrsdwWg
ayN+QWxmEejpwJe+QqSPI/7zj1FnB+OTh7pCqBf8mgo6RMAfhHpGkt9g1e9Q
z0hwrpoPukjAc0bWmego4bzOnJFtxlbpf42qp5ixFS9UM/U3+4nH7a+O9eTF
Ea7zVovrOMK/Hdq6rjDJPC2unwpxRYsOIxNvTBb3/9eX2Gh+lGnOJqrep2T1
u81r4hdmIa4rCe3bH7RpeeNNCdXejN3u2XxZceJDcR1HuP7ABYeLPt1Pl+A8
l1J6/3tmlrjeJPwr5/df9SrPl9RnB0w44Ww2OZCql8nZmOVHg5dd6COpD57Z
8vaTXshhcT1OuG/VX6Yd3bh5rLgeJ8SzKnpb9qu2mupfwVo+GOm89eBASX2t
MNCxYae4dpJ6nN+hoOobttFxOauS9X2x+GBjCo8RuyJtbw/HQk8Jzo6GpmkZ
VbpK8CRXr//fnm+B1O9Vsm9Rzwj66BTUJ4IOeuZN1CHq/IvY5SdQ/0jOjR3v
BnpGOB+2xjTQRcL4PLqCOlDiU5H8BnSjgP8O6k/hPOvXM0F/CjhfL0MdK8HT
L2U/0b1CfTZq1hnHCefmU987NbM0Nq3/iYo1ku+7Q97I1lNfa30PdP48zPfq
T5fPPkj7A5QzzS0dur/Zf4bqv5JZe7DT2IKIC5Ln8wf2D/XuUyI8BL9iDuAH
P4cR9eC6gLOvIeAEPK1EeHTrT7Ycz9cj5y2yF/G8PND1n1oP5+IRPy7WEs/j
A3+AnaLz9YjPwIfmcE4fjI+7M5xLCD4VXf/nOYZytr3oPETiv9G7E5yHCDgX
4LmK6HtgBecwwvpqrOj9JecXHMD3HdbPP6bC/EDOKWDS8L0GX/0lN3EeID4b
NYzwfSfP5w+c32C92iYa50OC334czJ/ov/ET5j3AGaCCeRLwjEuF+RD0wrVy
wF8C9L+JfcEvAnS+t9AXgvhxMUPV4EcB5zMq/cBfAs557IA+FTA+zdqBjwr4
inwdD74rgP9AGvq36PZfzFn0bwGczHTwgQE8F9A3Bs4j+L0++o91tWjqeTNj
dx+K/jLXZw71/JuxQ1MMjR6U+WnmPV3eiX0w1uJZzc17xM+5EJ/UZ83FeSPD
xP0L8+HL4oGKmuqDkve3lUtg2Pd21LmWQvt5YZ8GhfZMkeC/1in7aRUXat4T
5uGfa+4dWJV7XRwX8PxoeNHZ23efBE9BPfNHi/cdkLy/Sz9P6BG1+BU1nnJ2
zZ60mtsj3kien3fr6t9Yd+iZ+H4J73X5j2W3zG6UUM+PAZs20cTcbdBbqn8F
2yL167b9R0sl42OI/cN8GI54AP8QEX5d/of9JLouwWlcDjgBT8k1wAN685qN
QP8O+vGBqGcHnfjApaBbJ34mrCnq5eFcDNcpoH+H8y8sGoCOHsZnEvoGgC+N
xf/0GVCyBehXAOelTkO/AsDZC30PAI/vGPBJ0On0zfiY5aNGr/cb6C6Kh5vw
Ffb1at4K8xHH//qj1mvf4axZyL+41gfgb90tIm7ai9kjxHG2Ft/29tuwmRku
mjywra7/i9EhhitMXNyp8eff/Qe+bTr/ATN+zXz0eSP4X48Evzg4r2cm+sUB
zitDwHcO8Jzpjz512v7lvPdZ2N/p8Mj5+9NhPwj5sVresH/U+SQY8CHZsO8D
v5Q/fWGfCL4rrvtxP0jGfwruf3VxBR86EPfLBL9RCeyv4XylXHPYFwPO2riP
BjzbpuN+mfS/+xecd6aLV3LzV+D5aMR3xR/PU9NdV48fWwPOQQP/lmED4Nw0
8IG5kA7no8H4N8Lzu+F+HcfzuAH/90w4dxv8dqZ1hvO+AedxFzi/G/AYiM4B
1/Yvkx3siPs7W1284jDsB2H9k9QV9o+6ccjkWl6GfR/4t1xbhPtEbVzFuXK4
HyTjf+4Y7H91cRVnZFEE+2WCvxz313De0x172BcDzrm4jwY8VgrcL5P+r7p9
uq3u/4XGw1g+9erbVGVCzVdqxutd2d3Mtb3o8WHeTrYZdOWZisbJDHDakdT8
IO0/o2LqdPBIn27WSbL+dP6zcahFM1OqvUymX7M4lG9TLsHfZ+8M1xvt9f+1
B/8f3mh0YLX41hKc+o2jUps/lkvwPEkb+rzbU5b6vXI2oTuuH2x18aPhsN6A
77sZrk/Ic8vmWcO6Avxkhq3FdYi2/0omwwLXG2T8t6XC+oq878wv0XqM4M/B
9RuczxXeF9ZdgDMT12mAJ020HiP9v8Tzqsh8yL7rjedbEV+aaVXhPCwy77FZ
eI4V+NsU/AfnXoFPTk883wrGfySebw73a+8KOK8c8M8ZDueSgx/RNjwPHXAa
X4DzzQHPpRd4Trru+8j24A2n+5n7Uu3NWMcuR/XKe06QrH/SuYZH8xOWi68r
rHOC+txannFkihinEI/d4jh7oOEGcf9/81Ls75hts7dIxv8P9k/WG+w5X8AD
+GMvAX44L+w8XhdwWvUGnICnrgiPJi8ttDerHZ/eie1K6Z1LubedB23f8yhf
U2/V5kn02AXzb1hVDtU+59r8ZybHX11Qov9d+73T5i2N+MTRP85vbGNJ5ZnL
uSHHT8UNX+8g1mGFG/BPnzO91m+zpPgw5dzMmEO7X++9Jc4PC+0T2l0oth7+
muILGfCXsiNiLNyoc3L/8p/ftLZsO1rjP0nwMP2X/rLvY7JbU9cjvpRmhlXf
7P4ZSf3ecs7RcbPL4SONKZ1LKcPN80nveM5UfF1hHXinp1/ukGHNxHVtIW5d
dv1lp4zvVN0hk5mxpFaGcih1Dpfwu1rpZ2WPjHOheGWZzLQgm4rTKnsq35vJ
nbQt+PYuTEnx8zO5h66Wi2oHvqH4ReVcwNhuG9MTN1LjX8r0n/Qm5PPNloy4
fSlzeBnD/xeiPW9Ud1/YO3tcEhyfD/ai8LNznGf5Nqu2WPw8COPw65vV5o0z
3or5YEK8Ua89zEo9FzH/RxiH48zzBTuja4l5PkI8u4Svvn6aljfVUNfPuLfZ
hc4xxlTdvJwLGTq4oNbAulRdr5zr12Zlh6jhL8V6JeH5Ke7WqPaD2iy1P9Vj
+7PRa01fXRfvx4X47NV3m9ot3k/tg0qZeirfaRPSIqh9ihGrXlj1C5dSTO2v
jVjD1eNOlD3W5tkqte8vf7jD4Ka5KxaL+YR/9yO7gw8HWqSIeSZ/z/GUNVh/
7ZzGt187Pwjx5sFGrrIjT8W8PuG+JQ6u2D7e0UG8T/97novo92bq5pXj+QPZ
JY8iNPsdrW5FxSjx+dHp6BXsfvfuN+vkhlO8AjkbcGZAoDotUfdeadrzGSuH
ro8ZOudf/wWkfn3d8/KD1k1qUfVcBftRNJ7lOpzv/TrNnxVqpHnOtbo/FTPc
8nno0u6LPMU4ZbLju1OS+wXZiOs4wp9byxFTW3/YkSweBwV7ufeR5Av6rDv1
u/h2qhbyso51qXq0mtt5+4BDi2NF4nq98D7Zby7RL/5YSI2bihnY+N0OZzs/
Ss9VyckiEsb9PK89Z6pch+fsjl3nH/beJub7/eXJ5w+a8HHBCipPpWJqMKsb
rR05X/feanGetredEtv3u7j+KFz3dt6AUxnztorrj8LfvtJuK7wDtorrucI4
dPwB77tOX6ngz0VvnZLWSbPP0sXlfG4Lox/PtN8L8nxyDWZY/ZiQ9B91X9TM
Hm6wx8q4fWI9jvDcOtgY7LnXvKG4ziU8bytyP0zx/x6ZIsYvZxfvSO966f0h
D/F1lfz3jKNGT5MMKd6Fkm9vs9hn6W9WzJcT/jrHPhzsed5Zs27M1M2XZ57N
W1f7gzulazBh+VYmNyI39nIX41eyc25YDTW5fIXSOytZPW74oS8Pfag8pJpp
kO/xy2n+WWp9LucNmlXkyubVoPZTwvp//X/P4qLNOKo9O6VDfunKbfep972S
29Wmps2ksg+UjsaEz6sRO0wWfONfPkG37lXwBXrbD2fm104Wx1Xc2AR5vTPP
b6SI45VM+z8G43bYbabWgSbsyTZJdZNCVjD/B6Q4cFw=
    "], {{
      {RGBColor[0.1, 0.1, 0.1], Opacity[1], EdgeForm[None], 
       StyleBox[GraphicsGroup3DBox[Polygon3DBox[CompressedData["
1:eJxN23nUnVV1BvD33u/7XmUQmURMEIGgoiYQESEoMiiIgKKJTEZQCnEAKTgU
ajUiIqhV0EjbJSoFJ5yrgthSRYsTtdYKzdKKVqmuiiBmOQCiUG27f9nPXeGP
vc55z9lnn3nvZ+9z766nnLXqzOkwDNfND8NcpfLShaJvFv1r0QOKxqJiGfas
zImVvrDoiZX/TKVXF326aHk13qtox8kwvK2+LyKreLav9CFFDy3asmhz/VT5
yyo9ndzKb13ptkWnVfsDq/3m1dmWRTtV2cOKFhU9o8rfUfVXTXsc8xnvNGOr
6mHnods8vOiB6cv49yr+HSrdrmjrmuBHi/msyr+k6KUZwzaVblX04KKnl8AL
9VnprZX+rOj2jHvzyD64ZNxdsv6z8ocWfaPosIz3LVX+uap/UGROxiZ5/WwR
GZsNPfdtMv93ZN0uLtq92t9VdHZN8EX1vaZov5KxR6VLinYdek6HZl5/UnRK
ePau/r9c+b+d9N59aNprZKw/KvohvqKPVf3TszY7RtaXq+ymSt8w6T3bIev3
0PDskDW2J4uH3m/7fvy0vx+e+l2S2pOFar9PpXsXXVL0V9Zv6D04U79jz2fW
7mtFX8/eLUm5+sfWwXxi9bd0ocuWZL0vnfaZMdfHDL1G+FfnPD2laM/6XmYu
RZfX+nytaPGkZewROSuLVhU9p+j8om8Xvb7oC87EpM/gjtXPDkW3RebjipYW
LR/6e6/IuLzoCmOOfON6T9Fu1e5d4V2aMZ1QdFzyL676U4vWTHqPPlDpdmOv
nTV8fOjP7UHNb2XVryo6puhlRWcUnV60U9Hriue1Q/d3VvE+t+SsqbGfXPSY
sdffOXQn9o18e7Wi0ifljDw1e3VI0SuGvjvKz3NGsk5PKHpi9vfJRQek/f8W
vTF85xR9cq7ryKJ4yL6z6K6iu4v2T/snRcai4t9prsvOSdlbJz3ms8K34n7t
9g/fQUUHFv0i558+270yjy+6Y9J7d3B4Dkqbx2f+yp+Sun2L7/bw7zFpnfCW
rKfxW9Obck5uzLwOjsy9sp/2ddfq9znFe/TQd4yeODx5qfs7Tnodty2+X1Z6
R9E7J33v3f8XD60/3zVp3eze0bs7VPr1anNk5b9R6bOGzh9V9MyiI/LtLtHn
7pZ2xnNAjesFlb+26PlF1yz0WXKmtCFrn7Hn69zSSUdHrvK9Mj9n/8NFxxQ9
N/kjwvfsoe/TqtStTP2H51uWcRxXco8t+va065T/dL75V6XNMfeT8fHiW11j
PTn9uz/HDj325+YusAsfH9qefaI+vljpdUPfidcMfS9OztytAR3prDxnoXlf
XTLOsfdVvr7KTpu0zXth2qGLFrr9aUPbM7bk8OgJ+uLd1fbEhbZbv3A25nov
Hz32HE5O39aeXXUfLskZ+k7R94a2UdNqt67kHTZ2uXPAhvxq6LPy4Cr/fqU/
GFq3s1U3Fv8fi75ftL5oy7H7ZiNOTfvN0g8dPLtPp2UeDyn+/cc+fy8On3S+
xvLfmS9eepf+feTY98B9oDPXFz2qePeILbymaIfYfbaKXDr+q0PrFH3TL/tl
LK/IeNxpum52/+mDt01aDhnGeOawSWdY+yOc30mvw8+Hvkv3FP12aJ25c9U9
omjRpHU0Xb3z2HfqYSmn1+itmf46r+gL1hE+KdqiaO3QOu4vQs7VA8Y+Y2uT
14ZudLcPHzuvjEygRXu649+zduyS9mzTZmP3az2X1rivnWs5+2Y96KtvTdrG
srt7wnHFd9vQ4zf2c4fWVQfM9/l6U9Gbi/5yaLz10qJVY8uzzvTg24v3svle
m83Hnsu5WYPzM543R9ZK56TGcADbODb2e/vQ+Ogt6eetQ2Mb5TDhk8auuzD1
8sqm08aKMOO/DK3n4Ko31bxvLXmfKLqqvl9Q6WcrfXb2+ehJn399/iDn2zk/
smSuS7/6d1f/cej7ttt862+6+qhqt2Khed48bb1P59+Y+3N79b8otoNNuXRo
W04vvmbamBG2uzRy313pLUWXVLu/nmu88zdD32v380ephzNhRHvwnrTX9rnR
h/TYa6tuSaXbLvQ5pQPpQnvz/nx/dL4x2P5Ff1q8d1Z65qRlkvfeouXwyqS/
L8v4la+b7/12funejwytuz82tA795ND6WB19/vJJr/9Jk+7bGOj4zXM3Npu0
vv5I2tTnRuxJvx6cdXhK5E5Tf8q0cRKMZH/5FSunvcfXDO1j/Ji+zP6b2yuL
XjXp+Z4Z3IPv5ursoZX/9XzLYAdPypi1dwbYhI9njtcmT+ezE5cu9Bm5NvX6
+2zGcHXGpuw/Sv6Jxf+csdtPww8r0u1PqfLfVf73RfdF/peGtkHy/5Tv65P6
/vtp2zH2jD04aWh7M+M7b6HH97/TTfK+EJnXRwabxcbD/l+u9CtDf8t/Pfmv
Jk/vPiA86k+ca/t1bvXxD9Pm+1rq3X96gG6CX9xL9/P0rP1pwSXk8ZHYC7br
9PAp2zLy4BD3m76j99iKfeYaD+2Y+m+GR7/vm2u9g+hKdobeW5/2O+f73yZt
c/gh7I3+2dALJ40l+Tb8msXhpzPZB3qHjZjZOWPGd37RVmPrHfrnh5GHh+2k
b/hUdM6dJf83+f71pM+4sw77uwD8i09P2nZuP3YbvD8MP31AL1wSfXFz9N0n
iw4ceyzrMxdy2FCy5qIzzWHWNzkvSz0+2JUOXj7fvuytKYO5/6fo3qIXVN3i
aWNxeAG2oEdhUPgUTrVGym+atI2xdmzsbUl/lvzPIn/fsXEL7IPgjw2RuS71
sMsvU79d5rF9+tmQMWxIW3lYCK/2p2adYBvz/uFcr6N5sGNs/TE1r1XzPcff
DO3/8Dnuzrf8ByeNM/gSV0za5zpurtfit+FV7h6/r9JtjHHaa3ZP6vHJ35c1
vTvr+uBp64B7U7d/xsXW8uv0pf977tdu9djjvjdl96X9kyatJ/mz80ULk/Yb
YAh3k61eGqUKXxw5bTvBluNR/kf3qL4vKDp7vts/YNK4YrtJ2wG8C+njsWO3
0ZZs/on5z9qNGYc66bJK185327mi95cu+VDRR4tW1/cJRc+L7DE8j552v/p/
YPV3w6Txj/Ty+Om7F89W4TWnFdO2W2zOQdO2O1vFBj1o0rLMw9iXTLv91mPj
tgeFjz7nP/GH4D52CPbbdeg8e3RqbNMpiW3hZ1+sLbvH/vnWXr32y8N7deq0
+efI3WXo8/6r3KcjMl/17DM7vWzS+BROPWjs+/q4Sd8pfDfNtSw4gM2HC8SK
7i46OPhzp6zh9guNH9j7By40XoE5fCvfLSTPv3tk8viMgRy+0iNTr+5R4cPz
u0mPbfHY5TMZ1niLrJM57Jzx7BF+2A/+MGd45HcpUwej7FJjvaja7jPpWIm4
j7x4i+93p+178700sSFtlmUd9w2/dvtNNtXvlzrfb42ugkFXpFw9zAnX3pKy
fcK/IvUX5Vy4k3T8Hslr8wKYudI/LLQvwqay7cvH5nF/xaUOSB52fdqk7Ym4
53+lHrY4Mf2Qq+3yYFq8b087/HD3oQvdj7gDbKBffij/+7Bp47J10/ZH+Ul4
1H8h8p4WOeJSb4icIzJ2OFv+GZnPpxY67vCN1K2LzEPGxuMwNXx+dMrIMz4y
4exnhkf+4nzj0fcxY7dVdnHq+Zh7jx0jMI9vzfcYrss4tNHWfuOBYWHQpya+
cFh0xLXzjVXha+XHZP3t87KS8aWqv77oqvnGlTdPG9/AnzAlPLl0bD1Gp30g
+o2eI4tu+2r6fH7kPz99rc6d0P/jxv7+YvEeP2l5vuVvSDzHvM6q75cuNH49
ZNrz2WZsTKoMPp718bykq5OHd/HAq3wK62Lery26F+ZZaF+BPwTzinN8x3ou
dPzxRZOOR74k6YuyDtKfZIw33A9jn3y/eu1PrHH+fNpYdkOltyz094asqdgK
3MgXuGLa+HnWH5mwvZjmnWm7Ie3vDO+fLTTPGeGDF+FSOPJB1fflWT84VzxB
XMG9fF3RuZP2H/gRTx07z7c5KeU/qLbfm/a49POxrDees9Lmlcm752uzrsZ3
R+a8Nv28NunrJ43pDwsugqPvqba/L/ptcL2408w/kMLzZ0+6XP05ySvTh77I
FBOBWS9IP+dmnhemDI592tj4dbOQWOo4Ng4/P+3l1+ebTLGVA1ImlnNhZJJD
3tsin5xtx8aJ5mWs+v+/aceMYGvY7YHpd7OMWV78ny185lxjw2Ozd9beN5nb
puy++V5zuBh2hvfgI/hss2ljqZfPNc6C4eArbxxwGz44i59zQtHz8lbC99gx
MvA9YWw5H0j+YzlD/CHtjp1r2Xws/oxzJ8blTQTOxy+OpY3+Phi5xmvccD3/
5l05A/C8eYgVPKP6+/ykYyz8BBhenI1fYw/WJp5GxqcmnZeuGDu+xu9ZnHX5
dNbp0+HhRyxKrF8fh6cv3/b9y+kXJtllaL9K39dEvm8+1kMT1zpv6BgV7Cg2
pQw+gWfguEX5ZvvXZvz8rhuT8t3gIHEWPsXDxtbD9PHP5jpeJW7lbKjnY/BN
xGS04RfyD2HEm1J2e2Suz/dRY/sIfCp2ko2j573R2St2Xrl+xa/k2eUD08/N
kXFJfAs+Bqxyz6Sxlj29NWMWH+IHih2JE+0+3/El70XiSsrFkbwt8A/xaONd
YkXa3B6COZTx6fiVv84cpPzKZyYeRc5dGY81g7/gwLsyfvFk66hMHYwGq8FZ
t0bebyLHvJ6Rt8+NaznXMrX5XeTChHtPE28a+q7xZ/h9fDc+oTgkXxO2OmWu
79WaufZVp+F11+9IG3v2x4zHHXWPxU74bfwnvg+/wznzxrRN/BD5Z409d223
T9njw7N3yvhU5PD3dhq7DI+19YZ7Z3w98+DHLU1f/Bu+5KL4xXwGPgZfgh/y
qPgUW6aMn3HOfPtAM99s12n7OKfP95jO8O4xtn/CN8GP99Xzm/wo/T58bPl4
vNedNN/+pvplKTcGcshblxieMm8rx2ePtDFf814e/2a2h1LYng/Bn9o5/tFR
08btjxi7fMajzZPH9rfMeUnqVqTcXJZkXWAQmAdeuXq+ZZK9OmWwzLPHxqbP
jvy90gd+vNfMN27byDN2/tDgH/gPDlTGxxL3E5MTU+Xn8HHMQb/kky1Oam12
GVuOcjFCb1De6HYbO88f5L8dnzwecT/vZewPO/SosbE7bA6je2v2/bxpj0N6
Ysqkvq/ImN4/tP/Gj+NX8jFPyTzESa+cdlzUt/KH5Rw5T86QeL2YsTnC3fA3
vHzI0PpGvJ/+oHPgYXFuZerOTl7smj44O3n6QrlvMWcx7ZmvKBXfVi7PB6TT
4Pfzpp3C+VuM3Qe9Jw4Oz6tXvmTsvPFsG5+Ub2rs+LS3R8tzLr1NeGMwT36X
t/+Lp/3u5zcgfBg+ID9seebPT7gkddZFme93pwwvGcsmm+rekXp5/oV3LL4G
Wcq9HYsXwyRwqn0xnosjz/eVOQ/8BZgFLtSWHO/OypwZmNT+si2rcyY+lLNz
ZfLKnl98n1lozC4mLZ7szXCPsfP8Nb7WVcnDf/jEis3Hm6N1UiY2LBYtniu2
PPMPpeLM7tohuVd8Gb4L38Fb5TS4jX+h3Luw2LA49PVDyySHP8hX+e608fsX
c//J5R98PeXwNH8Kvobvb0i5e8w3+UjSG6ftv30+vh0f77ixfU3l1gUP3k9l
nawXWcbg9xN8An3p8wfpE7a/YaH9k28sxHcdWia/xZheknb28lXh5+toM/N/
8IhHHpz1OX7sPsjn05yRuf602v646KSxcTrfAC63X3ckzxeC4/lgfJi7pu3f
4L03PLdEzo/ih6jnr/Ed4Gs4W5m25Nwx87PiU+DhL5BFJn9EG3V8hRPGHoe2
yozv9ZnrTzIvZ+HgxF75AfCo+Lr1ma3x1sH33gDgTNgSnuU/+O3Hovz2Ch8e
cXS+wZZJp8nvFF7+CB9hp+T5HXukX9gb7obf4WjtpsHyytQZI+zqLVveu7a2
/MN9wnNU9PuzgkngEXFoOFAsRjwEVoQTYW7Ynh9wXPwH/oDvE+MXnBA6bm4T
35pgIFgItpn5Kr7hnDXh1x5Oho0XZ/xr854Bh8FIcJmxwKvwMvw1ix+fkr6O
Dbb17vCm4DN8ePgLb8lcvDVfHgwN354y9HuBMjgfTn9feOTPz/eN4YHz+QL8
C76LttJLkrfn3pX3zXn4ZHwP8cmvpV82kI8Al2gHb3u3ZffUKedX8C/eMHQK
A8nD4jNczE+0f9tlLuqU06d/mG+7zSZ5Y/U7qB3zG647g//gwHVZM7E88TZl
4mLK8cDbcLe9uD3+ifXVBr/fQvj9SLFstI/sHbvnbfmo2Ezt4HJtjeHO9Ous
bT6/6beT0s3zWzN863IGYF2YV3yU/dstGBlW/k1sLz+C7yCuCYfflrZ8KXYe
RnrT0DhfGbt/V3j3DD+sLu9tCT877K2ff8AX4BOcMN/vFN4rViW/MutsHCvC
szJ13kGc9xOC08giBzaGb2Ab527mI54RzAzD+r0aHAyHw7pwLix+RnAxfOxd
Azad4XA4FI4m/4zw6Mc3TL4mZSfnLcSbiHbeL+Bxbx8XRO5M5gXJw2zwGazn
HcJvP+DvtZH16sh6db7xwMmPCH4mUzxSuflsFbsp/igGeFnaKIdb4WPxfvX4
2Fa2m92GZ+FafHj8dmrjm33wLkwL24ppim1qJw4KX4tDKvvS/CaZ1ycPq16W
MXwrWBym1/aqtL86qW/2GB+ek7Mv9ssa/SGYWMwZfjg8GAqug8fEVtkbsUp3
VcxTnOfKYCJl9DQ+PB/OPGfz/XDy+tHfNZHzh+RhTW8e3hrgT9+XZWw3h8ed
2i3nFs7lRzif0qfnrMJ8+PBo541HW+8P3iH8Fk6c0PiVm5+65cFchwbzwnp0
xUYsuNC4Dr5T5t4rxwsb4xcnp0fogYvy2zftYD1YkxoSp7wi2AUe8C2v3Q7R
ITAbDAcLGuN9mftM1lz259zsEcxvvR6cfleHZ/fg5DEYgP2Hgz6UmDgMKT4u
ru08w3LfDRZcGr5ZrBz/yuARv2+AP+A6GA+2+1SwGgxIBlkwHlyo7u8W+s1F
HPV16eu6lKv/TPLXJA9fw3/fSqz7mtR/Jt9i4OZ0b3DYHeHVRkxb/frgHrjs
p8FmcBoM9rLgxu+E57bg0PWRIzZ+anAd3AV//Tjttd2QPJn63pD8DRmDMYo5
/z7z1r/fYYilnxRZ5MB9MCLsd2n8AWur3T1Zq2uzr/ZU/HBRMAIc5zeCfvPu
t+t+p84X9Ft1eWV+N396MJU8fOV3B37j9fbYMDEYv3nzu2I63Hv7mugnmIvf
7SzzXfg4+tMvPLdlYnfspbdy7/P7RdYTgyv8fsDvA8T8rMlvsy4PSSz0tMgR
Dzx16BgHPcwXhz/eOPS7uTGzu+7ZI5N3D3dMTJJ9FxuFacU8/bbvNcEy7K2Y
ntieOLt4OLwKlxmzsetDX96ktV0be8HGzGI/sPWGzEnsV8wWtto6saAlsXne
Vulm76liq2Kt2ySmQW/fOjROWJzxnB/sLEb/1mDqw4Z+gxBXHzNmMXk6l//K
V3V/3VP3FR/+d2ZNjc0Y9W0MMJy1EjuFnWELGMPv+sRGbw1etXafD6aDaxfl
3Ik/wlfWEKaELcWbxenE4MSvLg42sj/WZBaHM3cxJfbJeXKu2Aqxm+Nj+8R6
joqtFLOyd2yx8+D9nH3lw18ZW7PFuCm2QdfVMmzUs3j48lW8MQa3LBjDelk3
+leM483BfuSIbdDjzrdz7h4embPtTPLhr4r+t0a3BuOb8+LpJjvq7rhD+lsW
POL8+C0F3GGe5ssW6tsY6P1H5KzCE+Z/VOw8rOy3NnsltmAMq6OX6W377v8k
/AL+7p5ZBzp/OnReGQyxeXCB30j7TTOf9iHRCfwYctYM7RfsH71BV9hrmI8/
AZfD5+JRYm1ibvbQb8399pCvDrOLj4uZH5rz7F3PG4/3mv3C7wzQMXSL8RiX
Mzd791gVnSbOZP7WwX9cYFxYV+zpxUOP03i92fEz+ZjOtLPtt6vumLsGE3uv
hwthCuOHu5xD79/essWc/ObJ7z/emTuzy9DvLe6y31r4rYR4N6wMV9MJ+LU7
MDrhE+HDL1Z2cMYAw4s3uoN+J+AcOsPexvlC3gK8ZRyTs+1MLs+dpd+8i3gf
cV+de2M2djFO8zI/MTKxMndxRcZDH7CLbNOLokfok6dlj7whznTOxjevsesu
iF7ylupdVbyF/nl5yvjXXxnat7a/fG9+snWYvWsZAz3/udw9MTqxun1jd+y1
N7z3RR8/Iefkiuhzb15iFGJk1+Uu0jv0zxE52/CteDQs4j8G8IM1vzv7Tg/Q
z+LwR0dXPzp6mM/+rOg37yz8R2fXGWY3xM3FvOkkebaJLmJrnc9VWXNYi/6x
R7dEx9JBdJH5io8fGh1I122Mb2desCWds/Eda2h7KuZ1YzCV+ZgXHCTW85Ng
OfEL628fzMFc+JHmYC581yOjH/jc1tF68vXFku4KtnGvxaBh65W5O/C0PvR1
Q3AVXAQfwTDwDFyjPTnwkLEaM0znbrgjfElY5/RgH5jGuztc9P+z92Pt
          "]]],
        Lighting->{{"Ambient", 
           Hue[0., 0., 1.]}, {"Directional", 
           GrayLevel[0.6], 
           ImageScaled[{1, 1, 3}]}}]}, {}, {}, {}, {}}, {
      {GrayLevel[0], 
       Line3DBox[{18, 17, 15, 1298, 156, 302, 301, 1322, 48, 86, 85, 1406, 
        192, 374, 373, 1526, 1525, 1532, 379, 1514, 1501, 1508, 361, 1490, 
        1477, 1484, 355, 1466, 1453, 1460, 337, 1442, 1441, 1448, 343, 1214, 
        1201, 1208, 265, 1154, 1141, 1148, 259, 1130, 1117, 1124, 241, 1106, 
        1105, 1112, 247, 866, 853, 860, 193, 818, 24, 23, 21, 1070, 138, 137, 
        135, 617, 18}]}, 
      {GrayLevel[0], 
       Line3DBox[{617, 1618, 13, 634, 291, 154, 153, 652, 309, 46, 45, 694, 
        327, 190, 189, 766, 381, 1630, 1532}], 
       Line3DBox[{21, 514, 234, 239, 99, 1610, 914, 222, 220, 217, 1581, 479, 
        318, 676, 1, 1621, 671, 366, 364, 361}], 
       Line3DBox[{23, 1583, 19, 401, 1590, 235, 101, 1591, 97, 431, 1598, 427,
         902, 313, 1584, 317, 601, 1274, 367, 1602, 371, 727, 1490}], 
       Line3DBox[{24, 68, 69, 1605, 770, 102, 1593, 107, 105, 1592, 437, 25, 
        40, 42, 1616, 1238, 180, 350, 349, 1623, 1478, 1477}], 
       Line3DBox[{135, 1617, 1094, 294, 292, 151, 1619, 1058, 312, 310, 43, 
        1620, 641, 330, 328, 187, 1597, 683, 93, 382, 379}], 
       Line3DBox[{137, 1594, 133, 503, 1600, 499, 622, 63, 491, 1585, 487, 
        1046, 331, 1601, 335, 655, 1370, 96, 1589, 92, 745, 1514}], 
       Line3DBox[{138, 296, 229, 1613, 998, 66, 64, 61, 1612, 1010, 144, 143, 
        141, 1586, 665, 3, 184, 91, 1624, 1502, 1501}], 
       Line3DBox[{1070, 231, 232, 463, 473, 1611, 147, 496, 219, 320, 139, 
        1034, 6, 1582, 2, 169, 754, 363, 1629, 1508}], 
       Line3DBox[{818, 201, 202, 12, 212, 103, 806, 27, 28, 33, 610, 279, 178,
         177, 736, 357, 1628, 1484}], 
       Line3DBox[{193, 196, 7, 8, 9, 1603, 389, 210, 460, 30, 1609, 455, 282, 
        280, 175, 1596, 593, 75, 358, 355}], 
       Line3DBox[{860, 1625, 195, 424, 111, 1604, 395, 385, 208, 207, 926, 
        283, 1599, 287, 559, 1190, 78, 1588, 74, 709, 1466}], 
       Line3DBox[{247, 250, 246, 538, 49, 50, 51, 556, 253, 1614, 551, 270, 
        586, 79, 1615, 581, 342, 340, 337}], 
       Line3DBox[{1112, 1626, 249, 244, 243, 1118, 529, 262, 261, 1142, 547, 
        268, 267, 1202, 577, 346, 345, 1442}], 
       Line3DBox[{1460, 1627, 339, 718, 81, 82, 159, 1166, 121, 254, 129, 443,
         1607, 54, 118, 57, 419, 1587, 415, 866}], 
       Line3DBox[{853, 854, 1606, 55, 58, 60, 794, 1608, 127, 130, 126, 125, 
        123, 1595, 569, 84, 166, 73, 1622, 1454, 1453}]}, 
      {GrayLevel[0], 
       Line3DBox[{17, 1537, 13, 1094, 133, 296, 231, 514, 19, 68, 201, 196, 
        195, 854, 415, 250, 249, 1106}], 
       Line3DBox[{15, 634, 294, 503, 1563, 229, 232, 234, 401, 1554, 69, 202, 
        7, 424, 55, 1555, 419, 246, 244, 241}], 
       Line3DBox[{85, 694, 330, 335, 141, 1573, 1034, 318, 317, 42, 610, 282, 
        287, 123, 1567, 1166, 270, 268, 265}], 
       Line3DBox[{86, 45, 641, 1547, 331, 143, 1539, 139, 479, 1560, 313, 40, 
        33, 455, 1544, 283, 125, 1543, 121, 551, 1552, 547, 1154}], 
       Line3DBox[{48, 46, 43, 1571, 1046, 144, 320, 217, 1561, 902, 25, 28, 
        30, 1559, 926, 126, 1546, 254, 253, 1565, 1142, 1141}], 
       Line3DBox[{1322, 309, 310, 487, 1010, 219, 220, 427, 437, 1558, 27, 
        460, 207, 130, 129, 556, 261, 1578, 1148}], 
       Line3DBox[{259, 262, 51, 443, 1545, 127, 208, 210, 806, 1557, 105, 
        1556, 431, 222, 496, 61, 1562, 491, 312, 652, 301}], 
       Line3DBox[{156, 154, 151, 622, 66, 473, 1548, 99, 101, 102, 212, 9, 
        1542, 395, 60, 118, 49, 1564, 1118, 1117}], 
       Line3DBox[{1298, 291, 292, 499, 998, 463, 239, 1551, 235, 770, 12, 
        1538, 8, 111, 58, 57, 538, 243, 1577, 1124}], 
       Line3DBox[{374, 189, 683, 1575, 96, 184, 169, 671, 1549, 367, 350, 177,
         593, 1569, 78, 166, 81, 581, 1553, 577, 1214}], 
       Line3DBox[{192, 190, 187, 1576, 1370, 3, 2, 1, 1574, 1274, 180, 178, 
        175, 1570, 1190, 84, 82, 79, 1568, 1202, 1201}], 
       Line3DBox[{1406, 327, 328, 655, 665, 1572, 6, 676, 601, 1238, 279, 280,
         559, 569, 1566, 159, 586, 267, 1579, 1208}], 
       Line3DBox[{302, 153, 1058, 63, 64, 147, 914, 97, 107, 1540, 103, 389, 
        1550, 385, 794, 54, 1541, 50, 529, 1130}], 
       Line3DBox[{373, 766, 93, 92, 91, 754, 366, 371, 349, 736, 75, 74, 73, 
        718, 342, 346, 343}], 
       Line3DBox[{1526, 381, 382, 745, 1502, 363, 364, 727, 1478, 357, 358, 
        709, 1454, 339, 340, 345, 1580, 1448}]}, {}, {}}},
    VertexNormals->CompressedData["
1:eJztfXdQFUvzNtlAFpEMkkGQDAonLDkoklEEJQoKAgICSpIgIIggGEkqiAQl
gwHhnF0ySBKQHCRLzkkkfaa7fvVW6al7S+V9/d3nn616qqu3p6enp2dmA7v5
OR1LAjw8PGMSPDzCj9ftYyYM8yNZUEt3ouVL1XLI+RYeXoHDNJAUMHmpeqUU
MnnxIMX9bQeUIl4kOxA+AYxm3bsvrNsOvWsQTScXb4d6l842Nl0bA6bWvNs1
GoohcTUMnV5mLfQA6Ym3t2wKUAm7NFqW2gSdD/1y1XxFS+N5YQKQGn38ctyo
FHrx9UqASnKgEpoGSgxadXskSzEflgqlJt7nYvA+YwZIAQbjZbVLMAdPukSj
Tw0i/+LfJKYpJm+nQtV6VDQtlkuh/uIXj+RN1nuPIPfnPXUIT5uE5fsv+Jd7
TBCiwoLkDp4V2AXLiyjImyWcJEI1lvhR1kxPw/KP3bYtn2hAYmjPkvNnlPQh
/uJJCx4V72GVw7w3nXM4ziIHy7eHFGKWPK4gTfNq5tQTfGA+fIfQQcpWWUQU
UWLCB6xmwV/89faAHZNaOgW2JP4dDGWnYL7OXW2xGqNXcMKe3GPfAUn4vs8d
m5sp6pWRAlgtl/THyrB/dt6xEmU+ugs5fvtOKW8FNXxfjkMLaV5Gski9Ds41
7LwMzNMXHb0UaSiEOaIeR7HfRwjmXYAedrv8JASe4rwcuy4Cvu/LS09f7hUT
x+BFJDx1ZToH28nefzN2PbocLeP8AHGSIgfde3bzI6aBAfltOkdqrMCkS1dJ
vfitwanNLzwVdHQp+50eqLVh1x9WQgVufuU9dwS2LOZcQwdOPQ96WOuNnt/4
wvMe2K80JqgPqtneKQXmrMGFr/IpJ43STDOtwJCatVtitBbg/Fce7zuI4E0h
fL83CB3gX+BfanoZTf1V/iXrwKrZm2zQMF/tncCeFDTNwI/1sGZ01pjGR4L+
K8eEui6mg5QzP5b/Wbh80sRK+QMX9Bbz+m7M+/3Q1Yw945/ui1QKoNtZ3wxy
XGXZu9z3BhyIXPtsj/sli9jcFHnAdhShm0JED2kTPUv6xHc5h5p286lAthrE
1eYXUcBd9ziFT7zutIFL2ZophO/8KPBJ9hEg3Ucl/sNHXoogJDGYygmyPlrG
/4TDAmguIOkf+shvNhtbZNNKQrHp+uqWNPSAnfp83yc9F8XUdkdwISACagrA
3FcKWDupnvOJ1xH2krp4jQIiZ8jlZWAkhjaMkzc+8a12Q71qcmjMgTaxCOej
6nA8X3ruJewoIoi57PtiVlKdC+YX5aMcrxidwRRzcvgxPH4B88rDQS8GSfSR
jU4ocg9VPZhXNX2QXzpRjgnpc3Jel3gO8wnt3rE5k4mY425twjHYUpgnJjnN
YitwCuP7Rjz7QIIpzJP2860cjjbA4JlR3Va9xwTzHupyUqwvNDDmX69/8aHL
LQ0pvCeQ6qRrTGhpG3h8iYbpcj+9ZYRh9Phy/YtvyfY4WoBXiznof7E4SKsS
5mlfHrvynPAWuvpFBWtithl49uu40A9eoKEKDgL7qxeJydxDwYivvFKgbYuU
pydIM88mUJaqAdZ+jfOS+3doPS35wZmGGU38EFP02ldedYf8h/tkRujGHAPV
+zMm6JWvvEH3m4DVhL0gw/pL8Ysy7Oi/7PlefE4aLxecNxdDiig0kPXEqMHt
3R6c3UxcEIO8IsrZKHLmKhKXnmON/vcguxvIaLGOkYy1IzjlTai62Sjo9qKH
Gqpe6A30Y/+Sp6KMFSxUQKIRiY4mgS404F987ti6wIewcjTLirAS9k4R6CD+
pb21hr3zjRQ92JN187XVg5RweyPNDihtNIuCi/jv9Exi+WB+f0ytifyjXuw9
xTnmthfMsH4v72GL6drDWHvlZ5saxAqwPTt3D/n1EpugrDaUc1fZzOB5R7GP
KZ32kC72qhnNUhepPcwLNapE+UafRWVhFBOfkPHD/DvX1v4GzcuoA6NaefKR
jrB+9htF+AoU9OgAnWdU8wp7YXu22y3wi8degtqYtCvEVHwAbs06kcsf2zuo
cEmWfZ8mNLuuMy90RBEAb/Ambfwgj4W5Jnt2qDpDMYVxF4xmHYEZ4qP8jf8g
70UUQYHRlD0A/+q5yq6dTZCtCLmuPtsYQLXzgsAt8n5A6ABraNu2l8CVdNfL
Ssgx4MDtjaAQxhbgmS+PlnVgCxAWLOVT3TIOULacNSIl7gWeunEpeA9goXaF
0bQyp3FA74RfvtV4O+B38ssV0TrLKosYA0bDzl1pEngBJHy91prg7Y7FTAOk
hle8DiQKga2LLcoBUZSw34bxzpLuOM8Ihs9Vxfg34MM8w218LSOqBCxv7kpC
sUss7P/RoMgG6ekibGTN/DiVrAfcX+jN6RBmOX/sM4u9oYGGVrA8Su0IUVpe
PEqW+5HivHUwzHNDJRM7ebKwDmfdhsou3oX10Akxy2pnUqJDGQkV/HjLYXkp
45n7+8V5wHjglPhMmQRs5xkmipgDtc+w57XqrGKBXFg+PFfjfbjQU6wLXU7n
5ZpoWP/f7cdNXgvZuJOVmMuK47oTZd/y6lmoE08p/B6Gxp5Ouos8H+a/p2eM
0Wa1ycIUWeXrZc9j74JzvP8seFa6zQToGCNbM4TtGOT04PuKEWoohu88iSE2
3tZRTGmI0/5I3+BdzGf4sR7VewjZNHbA/twfTEDkcVcUS+in7DrvqwL7Py/i
3HgdASdIpnzojBcnC9xfR8wHz5kSiGNLHINIQnxm4fuu5EtJG1dVoMJEr12t
yZ2C9QvHS3rvmInBxseXSjxVeQLrr1ywcUPYG6EOiyTSTX8whOUNro9zMd7Z
gaqNqDO6cr4Hbq9tBoKiUXwVuaxm6Grruw7zyVUc4tfzb6NWLVaelx29DevR
MqCgw2iIod55kHhovZPDGT/m0r77zqxfxBCL+uIlma3BdaMSy1PiFsf2AuEu
U7a+wUKY16Xjg6jrzAqUtNM0A3qk4PozT9CDn8l/EnEHFWZEHjEJy0eaBVnl
85gXmOziRMQcFIf5qvWrcYwX5xBIQV/lGEkEzNue2EbtauALVWnanzI6fQHi
8JgLufExj1VBz+JaiZOhZMvKMP7BCIi4JE/FdWka8GjqVaPjKYTe5mbzh2Mi
ISyN2Dr7x7whzBpLmmNhAwUyPoo75nMKiuXiDZ36lA+XsgZleO5AbqtiZTkr
EgDx5fco2o1pAFotKPXo0YOURQ4545WbAxoTIVXvf5A/czaaUdJrPCAS0B+p
zKaD4yTzwBHvzJ2uoL2ZUxgpghrdj6PunZoi0PHgCAK9XShrrU080Ugc8gE6
dJHOH4pRM0tyVGfzbsBxxflYaTUgdRNlhJSiXTQa+zbPKjFd9rFUAPcXSz7F
eA7CfHOCVb1OoC+WryqTMxatDMdJ+L7r8ZEkN1FSo4eKbxumwHx0UGa+Yvlt
lKfGnrwefktYz/fsHODWoht0ssLKGyqQO8V9y6sB6WlDe1aZsPoi8+vQFCNO
PVP+Q23mbIoouStJKPqp4zjlfxYiuWYNKMTpQMHEOzo+TBRw/1YxhxJWKdKD
DIMMlo6y9DD/PT327UsJk6cyAEIPphNtMj3QHdN8v6nuceBFxPsBDfViqEyL
Wdlipg/KogDVexjGvqungNmHWJrzMWTlLDkbSdYILX/Ind7/eOpv+2FhLRLD
KDqLpndYqM0R6UXfsB/9HG/1jf0e/Sd3AuRddRvt+CRAIGv75/p//MOAlJHj
Ihg82U7zXHAD5DF68ln+yS7ekQtBxIB3C/ewYxYlFLkt4rO8V8AhpaDrTIBL
vbjfxKgoxL20MvJZP9FJKkSyNpC5gK3pPnIKOvNQ59iPxtffxbFqDeenoVhg
smk7Ax1LL6T95ikHp9U4wBB+dPn0swZgvqohruojT9H+RNtc5Pt+3hmqx3XB
rQnCC5ipTovpAiReiZGfKBgDgEOcuy9cfwn5acwM913vAzql86R2XB8DMISG
CyiOB0CwkgYV+kML8OrpcE9p+yTQvHLKmhB6CVHIJU/6PXoDCLvzn15RnQIc
b/UgN4BH0MD06sO9FZXAsOkiqb/xNMAeL1jM4xsF8WPdjuczFwN4JgfV8FM/
1j9zA1xQhQhm9UbPjRipb+uack6oknuAFqNMoEFCH7MA58/nSteODt/ZibHS
E3RUvET6bZ11yklYZrEAuVf62XiL/iwsf3hAml14qRq5HH9jf9Ri9T+e3x1y
WQ/ZzxzCLCfcfJ3Zqw/f15kn3uxy5EaBw4Kiq5UvHcwn5YQVtzx+g5Q9t1bC
fzwa5v3X7o1JLVQjD3LtzPWYrcY5v38Pj/n7bkeHn8dSdt/9IM9pD+cNq4vk
jUwuD7FadZ5sbcQvYF5VtPCitbQVtgGcVzvprA/zaI18S1C9BJvZeZ+J5FoR
zAvm4jWfUWvC+vfHBSxu1uPMS40bwjUWquEod6epWaXEyH9c1/E1DrRKE/lh
TVFks+12/jjv68sqsBGYIwDdm7Ma0Q7iBPYcJ5/6NB4zqtPVJHawQ87y/BF3
7+2CIsKZP3zi6e00GXSttkMmphTXBq+3gXfqznwe75des5lG3KwA+f2f36ZW
H0P3JS185jvclN6OdI6g5XReXjB+P46uYh37zPcoyeXsMryOLjVAvMtFJKAV
Vn7PPozfmaho7kcy4Pp78Zlr0QDO/Oz79CDzTcNsjEpaRY6MQjAc/3dUtdz9
D2hhDAVOE7bcFIDj8HVhio1Lrgjmcv3xbU9HxGD+aWatFDcJKfbwtAbprdui
cP+aUAhkPbu6F5k1c7i+ilwblkenjlljZ6SwfSTZJZHHJeB+1NfaOVmgoI9i
V7/7QDGIAOZLopoPH71hg+oIdt8taUuJs9/bCWRcDdJ2YwlTbeIO4QnB8g4n
I2MXm46j5nJd+UKo6HDqiStl0VunX8zfr92pTrVABueNhCTr0x3XLiNomIbj
rUx7ZP7id+gcs12JulWQww3tur09HpaPWEUoize0yXTNG0Y1opry/+JtDUfb
BeceFixB9pYMqw9h+cCxs6kCVzIKeLgPCBy+mQLzYS3HQ7iu7ygQLPpi11+8
2KIEbd7UTL4C2bmCdJsKmA/OcSvqlivPf91sWMu3OgDzfir2D883XkBkmB/k
x9MJgOvYZwYPFDgNavMPm5mMBwytwfLf88/F9+rZ53j3oCjbNJjOhZPA/V7m
nrTjxF4mlJg9H3obKwvO8c4v6T1vy7WEpOKljL4iSfmP88Pe61/miceqgy8P
SIvD8RYu+4xj0Jsa2RhtSRipwfBtv+tiPHVwkChm1yhzrg/nLOwHV8rUydxD
DMhnNm6h3H47YD3tgq3uSgJSSNXmwOWiJwdw5mehg+d5l8YBpEdObFIyYADf
t2PgloaP8m5kgdkandwNaViPpkZBUV8uN3K/W4lBWfRhmLdhkLk25yWGEa+y
Ve8NY4L1RF1HH35sY4iJfjdtZtOlDPPM23fIXpsmxpa7vEx8pkP72+rGXoV8
/lejM8jmSJO3O8tJ/3E/Tt4ZmrguMA7GLJ+7b8+0gDYW6/ycP9PuZvOuu1aD
zYcQtwpDm8Dl2PXPfAGBP/FSYS8otEJOSOBqixa/t/qZb43R7PfTiUcXBl81
PCuTBXaMfcnDQXisrwQRSeiURIKSk2q54Pa+L3xTtZ/sY/NKlFGOgRXf5Tew
3yjyIsIcWDhBxgtcwgPtBDjzarrj2IMEL21QeKXvWTdSG9z4uq7ZVU56MXJM
GV128RJryqUDOPV8DxJxhLVyJa7YhJCP5R3SArbzss3d8+svT2Bf7b8lLyQm
DPO7I/bbrmVKYqn4auxJMwC4X0ypexKAtzIoF71b2+OJZGE+bPnt2dnxEYx/
LrRwj/EtzrpoNk/pELJIDNN31F3qwuIAApf89xAQzRx0OvYaxi1AElP4KAjn
+PI7XPV6SHAHmlSq72o/uwi8/8kNRJ/Tlh3A0kiXzyBpKnHGP1YuRm7cQReU
ath1nYVEF72OYx36d1HNe2qHEvEeiCxvsDspgASwUf0UuNNAd0YkEQHbGMg5
Lpcvc7wWtPH+UlekDRL2dpriQ7r6ey4iSMbQbmOPv6w7SvEez9BPoefGuxIF
wkbQebYjn3myoleWKQzV6FDHELOXBqXod70bn3lW09jWPlIRyP7rdcKqvucT
j5nPj1sKYwBeFxcefoHYCz3I0lv5UXu7JSXdDTuOQErSX65Tt6zkP+3Hrm96
h4/RSkP2RtEhWNWT0K67TN5rH/mxPJbwFJkA6J1A70YQTRAknt5nubHxff1z
ifXJtdpmULGQZmTwtdMQ3rvhxLl/4P/hw1dvfCjWgQgZVmcyczSh3cdeP1r/
B3punZA4JERWD3U70chim5qAY8eKs6IFJ4HJERXXM+ovoTmJKGNu/CJgn7yA
+lTYNOCZvMtfmrsJmjhOG7148BVwC5lBIvh8Ekgw2VwNfVQMqXQkdZpaFQDv
KjhJd7tNA+rcXGceuoFQ3V5su9vrR0BTXkjNJDgNCGf00fGTh0NW6POLCeNn
IWuWIN65j34rc/Cy9a7IgLQuMvC4iakBSXdivYRmv9+udQt9AlXmJGj6OCl3
ucdlQJhBP3pteRpImnm42plcBXnJ3Fnlex0B9BBL43Mc/r4eulrrNccUZ2R9
bWTtNvcrcB7oZBZhoUTfRWohVeQUnRngvOFoPTXLP8mFjaPxfsuz9C3PeJOZ
g8XOPMi0K1LTWseUYD0sK49r4p8QodiqHt5zTCeCx6nnixvRj8KWkSK38bfH
sZLA/Mjb82lFgQMFO4/S4fkxEMP5YWbS5MY81SDiXip76EELfFh/TmzY/ork
2QKmaWxlnbgULH9DvaDkXPISImzXXCS5ASUsz9a+x4qlWQWD/2BulPa+PM78
44Sxx+cxUwDikEoBefj6kHDAm5FP8Qb5+ce+vUQN5dWfVU+gMIMoPAjPr/4g
DqMtEeSMC0PgbXqiEy2rPFCTy4vlf5J/DJuTYp7MnQOZph8mc2N2gzNf89ih
4MzqBu5wdOUcu+j+khr0PpEvvDXq8QiT2Ss0bWjBTvnNZpDR48t8mi5quaSp
p4G+hnHRPq7oB6Z91RPlbzDaUfUSPHkMX+RISA56qvDHeZKw/F2xbKYrcJW3
4QRNjzeUwmN/PO6j/G13r1aSmgTAlJi0dEXpAZRX2QORLU0DAjMRF713FgPy
d+PnPAowUGdxWt30x/GySBJ3S+t8FMCYKi4OBsdDJ3WOMzx+Pw08SC3TTWfG
AlUahK/wcoug0V2XtRI9poHZA31DOcsJQI5u00HTMxjoYSN3JkfFNLCsHLdt
RMcSWlrB0/A4Hwat5jlQUX+0pzkmaZ07wgDAio0K7xrwg0aSFl0e/aBdexlk
UDyVDoDb8BqrQn8KVGPsSCf70X4eDGmjT4gHEHl3u4hKYgR0duG0UNQP8t5N
/rUWA7cHwNu49t7bBfnAm/hxFp3X08BjKSfG4xk2QNh9Dsnjr8uAqn0mR/mD
vq/nGbeGPMI/A7gHcB9w+ihvs+dsyVm3vx8/WrohePX8GEC24R6R/JUYoCJ5
gEi9+mPeYK3DK+jLBhgi6ISedaQARP5X+DT7P8ZPvgxZtcIzIKe6W8Tl2DPA
H7rXuuujnxnD01/EktYBWqTtoQAlCGw05mJf904B2+KevYU4awCFr1eNkxVS
xDbf38e7V+3h9kBJDOUUq6aSMfweHo/WdcfcEYGnUO73lGkuepzBWWdKppET
naaTQ1UGh2ywih+B5dkxa41BdPGoI68uj3nI//N9ib8LcnN5prRwAawJunJN
ea0XbtfJQ/YR0cMiWL+D15us1CR+W92eE/48vKR4FJnxiFdIh3QDzodtVIV1
VTO0qFJzxiGt0bXfdv71PXgoJVXNyVCgxKt3jq+9795yewId9m+wOy4XcLcz
e+8a3IvTntoYc3M1bS9E5/JLpbw7XvC6flKNscn2TFpBo85mWJXQtQJceowt
VuvtT2kjI2v2pHIVfHueAWmU5+qKL4t0X12pPhEk+9v8c8E5rSnL8Bgyi8DZ
XYUOA9/XDVW5x9H9OFLj4SuKpSnc82koGZdXM1k2+L5UbHTz8AM0/tf12sU3
kmefGh0BMzn69ZupX4CYtz+ed9qrd986SSEHDm+YqlRmGMPPk/QYPO/C8p1E
378cnWTG8hDs+vB79uXMwpDJCxW6YK2RECnZXmNw9as9gmtlRKxCmeB44/im
Mm8GGNP/e+zJvMG506YJD3v0Q8k2MZt9387Fpp243OhnMGBehelm5CzO/vrV
uN9l+fQ9ShFl7j+f19Ek8dvy853uI52cYYdBv0tRwtZNh+DnAKXtnofMs2SC
kpVc9KoOqSDz0O/pL69NBdQ1W1V06kXh0roMUXid20szlO2kJI/2Hyht6DUy
wrluHa1DOgnuvINdOCDic3qc4Nv5+10eE5E3fKi7saNAvq4yTj9baNG/VY96
gj2y/x07fXfqb5unvoediSO3C/lZwbAQi+QrYXvgfRX80wNtg4x8IB+GweAG
045/vN/yd3EHz+qxvSIjdE9d5pZXFy2Qx+yw+qlf3iAkrpY6W0LJ71UZcsUs
oOQORbL53xA/38O9NQkSaUgEamNbCL0tvQSaFx2f+lH85PlYytyPJ4NaupZV
X3s0g4flRT/HG0nbmlr/bC06Lm65hu5EMXi9euOHcfjK8d4r5ckCtMAMMu3y
bB5okvIlbmeHGyxLia+iH1zLq3ErrgJ11H/P+MIPEh0yEupCk5U3y8QpXgBz
hr48pzq2MuI9yzGBtj4yLbVjvheU4Zr+oT3cO4+wmwTFYxu2N/Ct7FaCxxHt
U+SCRDsRVoZh5bhd8jLOvAr2a4kfvA9gOfehqAZluGE9cYepSngTHyF7iaX3
4jv2bnn9YyD21i/eQxIr6cRLklor/9vygL3c2jZEEweys60pI1Bb5Jsf5gtP
e+7DIpgdbfrp2Xi2fP7K7eKMoH7lh4i9iZnpavX7x/uiPwuUqpZl0aszMgIC
lkSsk/M4z3dyuaiWSE0mClhp9ANfrA/Cdel7IfOYN1cFMULn+2N62/lw+jnj
YO5LTilOTApzT8XkEdSWx22k3DTC+gQK6cV5bXKd41ud7HMMkpq5wYMcYCte
Ty9Db7mdaJIz3tdSqJBR2fw+4RbMOP0cV2diFkhxEJmae1029sO3frmqXP6y
000K2X+F/WoegQXOdqlcOk6d+GIBqXnBricr7D0sb1ewhDKrW8CIR9bSnMze
89vqMf1jeDdP8K1gBoWiXUqMp+B2ZYmGG4F4k5jILBtPFwwxzvzjqXfy4J18
MRA0HpmXo3SE3/soyzV+llXjBfYss+Lff3AFROGooxoYk5kG3iqgYyn2xVwX
ROF8/vxXY/JjHCNJuVCbfoi5NCQtXOfER7DZZxovoBhbexyQ0aJbbifyKUe9
sPtuzFLd7PUqDRGccUhFqdB7rHsBMXRzxRdlhwf3O8HBvQpG72mRCdgnMopG
23GOiyXrW16ToDJW1t6B8m2bIBy3yQ+6g4bFD6Eq9PAnavPMfls8l9vFVzUb
K6JUq9vZnix8e88rg6SgVqMNQDm7MN7b03/st9kzAVokLYQOoBc9dNjbfH3R
wiQfPsf/Qt+74GjuRfDYoXMZA70baAWXlN9Sj30P6efaaesmOsDXRueDN5IX
QAGf/h/ao3B3s+3yCyfIN8Fpk1HMG9LbmaGS/lHeRnmokozdH5LO75Dg7AmC
kHr8O/F+tD//gF+gJQ0F1XGza0b6yEHFS6aeW+kHG61IvmCeTjS7d3UX3ZM3
aP7YL+fdQuV2JfbUy6Dbea6nFvelgBjSoZ7fYaeIZo+qrG17QbVF5SZ+WyFc
5/DNmI8K1poX1FxjWXUcOoFzX+tnocV3WC2ZTxO9rkDZyo/YAa/fEVFRifFG
BuhIu7CD11OPgWs48vyvBv8ItDNnLgNLlehq8Kw8/beN9+ZhyWvr+4RR85Jx
BiYW43D+3NNxL/adBBqlXk1U8XYf+rfV8+3p87x6Up7QRq6J/qbuGaCtwxO/
7GO/3D3reIQ+NQyqHUHZHeu+CAx720lM/eA85VcjqrboRButMpS6/fnuagN8
wAi/NOC3rE/xMCYKsp3oYYFOV0N6I7QJw5dzuutP0YuUa71ot/Jk7XdLveDE
xtIP43l4jPwQcclbqFt4dyg/XRowTNJ2+hb+BHDToazVaX8jRMs4cK4K+RLg
OzxxFS/g++cyTdTJgdR1b6Ddkv3ngeEcKDPnfLjJ0b//PPbPQuXaSi6FRTXE
oO5Hw2aGgexIGw0iKaaB8G3VwWa7uqFdupmltMRlENuQQtQG0cQvt7PfeBKx
buAH+XNtUKs7v4CiQx+oHOieBuKjRDbI2ZOAUOL5li7paqhPB9P1FPnr42eb
/jEP1fh46IRapLZrUzr0riZg/MDkNLB9GylXiIwfNEq2jWTs/UNIrMnkFtmH
X2/P2srmqOmlcsgjOuP2geEeIJHPW2r/vnFAnzI/g76xFHj2UGCkOKgPGM5N
jpyQ+/7z6r8a3GfvkQsI9UKFdZf4iWnfAMLI4L28I6O/3B4Ot8Aenp0J0Ozp
cUEJryigo9f/YPXyNBBgg0oPPxUPVbrfrNdfiQfeTgVKHlzaunx4BmJ3jC+g
xLTyt3iLKe3c8vUyiQKWjF5XA3NzxOe8uYo5znWBpyPH2/tZLGBCT6DNA1MU
vG7ahYnNcHkkC75Lste7tWiMs04IpuOgV8RKoDc2WW6mhoht+TpL0bb1SDX7
SWxu+baznajtcLt0KlAkt+hZ0FRJgRLzpPhbbict5fgC9RUdsPt6jTm5ty04
h8PPyzPJVC9PWQAGUo8X98k5QWwmbw9/et+f6JYkQxzfTWDEisCM9FkUlM5D
0Ly6+n091JlUfvu36QHPepb2sMnqQW2x1U1rW1gHZrlZHKYPXgZ791gWyd2Z
B4esyj77oV/muC7bg+3AmGuju4AnDbC3YmJ9K+vVB02CnfHHzwBZRx1fKJO7
Q0mXprRqfmDPu+ND/WuTLcCOxp5C75AYIKgILwi/exIg4t2dAg52Ak+5cwi2
36oCpr36bzCTfH9efjd7KPfMVA9ASBP21GWjEJobST0HnR7fMj+05N7ziKx9
BVwewLRFFjVBSYmWHRI3J4Hysug5iu2twFHkrN5N1WqIQK3bajv15JbZiSkZ
q2fLLwMmeQekG0QygNLn2hwp7r8+fnhpNM66nwSBkITYp0n8tUCa/hF17skp
4IL26c2j9zMAGo6XIkzhucDFKXHDY+1/3x5i/BMTr3IsUS/kN3a8DqLAuW4S
rGLgiD/rhEryij2vquL029ZZ/ytYoi2iTB1pxbTNpZ3UM0jd8nn8VyN4JUuO
8rQoVlYAeadwUxDnOpf99BBpKIUQVlEisT+4ZP+Wn3f/ahBQWfhMO4mh7YJq
RCVqaXHWCQKvrXYOhBZiGxLAEUuz0j/eP3acx0OiM54j0lzrk2odcNe9Y+Ys
SpAoL+YAtwKQ6SGz5eeS/224xKl/gojQHWXMT0ils477/fr/a2grTvIANmcR
a/tv4MeTa/0x+Rk5LkMZIVhSoEganXz78iN4f1iwrAtLfWwWMX2tmVRReg7n
uXlGktFbUPwDwurkmrDT2dWffs7eaUEq8iCmEpEyd5a8TYR8y/3v2SWEzkVF
FEjccU1mfRSNs72OdLLXxG+nFFx0dhSqVEjY8ucQ/tuwvVG3+v0dAEn89fqF
/dc/f2Fsn7VaVx4KPfr1+oX9c/1jf/GcTq8TD5SOfOdjd0MUKm98M/jD540Z
OOvH4pNAJUx8aTxvAqg4t7XnSr8aDrNFq+EzD8AwIxHl8684QKK1H7fXSJbF
/P1aKtgV66U1mpYKVg//2f7ZXOx4xM00glILXmQdsTDCud7ckHbQtaMoxGp6
ibVhFYr+rX/+Ay07tjnqp9VgIsUr8bypa/+tn/8DnupTSZzOY5gxydN9dfNz
//rnP7CxvS+B480yKqB6+mZe2vy/+z//AXUWHteKzRyQNjAufMo2EVT6Te+h
/K8AFdeoEaeVBWrlZpOUbCahGf/w+WvqceGYyrZhlJp54KZiPu7nuqu0uymD
XOdR+R90975oXfjjx5f7QmjYVfYT0L3OFA6sSB949UrcyI/Oj/Jf3gxavmwN
oVWqyHVqT0PugqkrE39w/PxdWMVqHtKP44ROfb2aXlia/5PHV2JwPqPH/SfQ
Hgjvjg/4CLJsz3AVnvp+e/3fRvQYs16BWtb3RtX1B0Ci4ZL3Cf5g/0zZ8sWg
lU9C8fqE10jutaFHNjeTfjS+3pqtyXagrKF7AkMkTF2nAYZiBZ7JP9g/r/LH
lXY+qQAP+rx4Nr+uBW6e//F85E+2NrDY1AwaC+1WMn/9BpyKXvuj569LYDYf
5CuJrI/fv9/2A+799ondDb7b7KkxssAuMdQTxn/3f/4DGnlGXrwH51ELUSM1
yQyLf/z6dKT+nL9YbwfyBlfU2IpPHc7nlk1e51HGCQ4j3yP2+zd3Dv8x8VOz
tCe4MpQlf3Thy/ULOwMEavMIZJVPydzmJnB7FVyJ8z0yPGdOMVeqehlGe7kI
i+dvZHDK/00EyTup78BLl+kjKXKtZHn30/V/DwaLS96VAcEFQjUVs1KmL+A4
GeipbW3snUWo+hRVrJDN4txvLw1+ceJ5rFMBU9QNS8aMtJ/+nPw9Q75qS9b7
CM2ZaOM+d4st3/9XNREPs6+jQcrGD9RiG4ZwtndVl3HPjNEiApx/bJPMvrDl
9v8sPO5ZLamR2IMRKwqTZ76mAs9TCsJr6WyWKMzVhyYotQsKOOevN4ZP78vR
MGOylpk2h5REf/r+T64F1XJFBh/SOpHS0JZBcMv3lyq5dM80BKMwtAqoTO4+
MZz2+G2DEsgeCmFusAZRb5vW2HL7fzWWC8c8TyqOY8w52yMq7OlxztfDWTfZ
FzJFsBOodM8bLMJ//Pz+dzH1NnnIFTqAqqQWaa5a2/vH+6d4zcA2bPYAaPo8
/ZVuAivO8z7bo8Kr08kqoO66szjyrAJ6c4vfq/pZ8Dkf/W67xmLBLL1EPDfL
t/epN+XE2KKyEchFZfxtpqUrOOcjB58ZPM/tqwUzDMhSV0Gtn55/CC8IXurW
4EB29FGWI3l1t7z+5ERSAs6JGwUOowctjh3H/TxG8SnS05mnyJHXhUTLhZ9Q
/fH5+e+iQMoPQ5Fmj11pnIp5RGL/x++v5lsSdFeVmEJqU4f7uCxOQoRD3Mgf
/S/Db36ovKSEDVqLTLmGaOSBDMrG/+j9w7+LmshbuzGsBOg+/bxTxzpx/7fl
/xru19U4WuMRQwZi/STZJ0iAjBe7/4j563vQ6JCx05LQhuqi64LlMgOg91HL
qsE/aK+e3bJjfrQOlEfhrDxTagrFRe6Q+/AH++fv4ghKlG/q0jDSk+TKmSvB
w3/8/HWX7Pgmwt0OuziONBR54ICzHo7hM2hP7ryCveJLzFRGZP/H189/F284
fY5uVjSBUzZ6V17ENaETkv7w/fn9uztnGmbB7JnsvuGk92CUQPkP23vDAch6
qkoJhSjHPHI4tAS2KE1s/Mn++btQOXCuJdDCGqJNdD2UWokHZfUYTS7+6x8Y
mkHZ1Gf7b0CB+v0++1KDgJQgVSHCLfyOxH8bGNYi+YPIMyDLr1eth4Es+QN/
rn/qKCSE1g/1Qo90g2/pMeUCWXdudNA5fP99UtmSfUUi/P0Qd/bT8/40RVBM
xfu7rzZ//XcA/ldQlby3weWqNiSx2cb0Yc4BMkiabP33+ZZvIDjb2uG39BIw
CtvOn6zfCJEBCrtDPbfueym/GqZAmksi4S1I0TUqt741FbirlhauOff9eCC1
PkgXwJUO1XywiOE9CgLLbh5z7/L+jZ+/IJKnT+kaWA8d/XqdPLW+rl61de+V
/7fBa5/iuWiiaiC4RdEpNrwTkCUNjhHa/eu/8/OrYWtI7rHvgCRiyVZtsRqj
B5+Tzs8tmZ17eAhDYJ2akUirhnO96UN1+E79qf4C7HpBnxbDjp++P3x+7AR7
tm9Fwe2sk0A/69pv+84bUUzbUIJ4PmqhiKdBCMyB15VMJVf1JV/SgGaN72bM
1fhwnl8EFe0/MmlWhkyPMo/BlKF/+v5qj37qRblH27Alb0nLxIXEtnz/9kPm
rNKc6DFwW0ee2GnCIyCu78ZTpw2uuLiKgbXtmOPiAVv/fZufBe0O+qK+mjZw
ar48c3cpEXS3KuKzH6Q005sV5Jihcw3RouefF4F7DPvWfuSfLvOW7PdEo2j2
hGvQdqlOME13/qeu3xF6LNTzw50gQYPdgDF/M9pRcnVL9wcSmzKILg/JQ4qd
8SHXm3WhKnt9lo0f2GMc1MMeRDuFDhK40hVxmhGSTzm4pd+x+VnwHBaoEmcq
Aurz9rHbHY6GZioKhl7lTgNp4zv35RvVAzceylXMlj2D6vnDevY3fL/eO+Tf
gYnlyQd87rpwZaOyoMowxwdhpT/PP9qyOvzxQknACd62Y7d9bkJmb8/zNm7h
d8O6TbfV7X1TCgxNH8lifRwGXNeIap+I+L49MryHFpz9KgCNAGNa2pxoKGYz
8Fqd4/9+/EQ4BqdqaToCDg5frjo9hSEdn/7neCM01HwmDLCTsWazo40CROLi
dWLWvt/eqUr2dEfrcOCBdWAP1BMOdHRTtzWv/zz/VF0u8wwjvQf0NxA/Exny
BfQOZrKc+oE9PwvdfrfHiVlFMbrY5RxpFlG4bjENmcN3IPuAvMVmoLzeSwzP
p36FNulx6ZHQWRE9q0su/tBexqiDUh/9gMQqXB7G20SVy9u4alVAcJ3griEy
+7z4OeZYa7IpW2ASXEdZ8Lp/uGDFhao7E9m/fxoJ68e6zL+cVBfDRpS51y2T
H4T1XDSNCH2mqAk65GUc2ZWsAf/vVW/luqTp5T5kZcBQzW17BljeByhiDHFu
wRgcbORQN/z2v+zRXi03kUdRUG6c8t6BCDfgeqzRVaWP9qc2PxKeN6YAR44l
t8qVk8Dnd7e3R4ayjVtAfTVFDn3z2VBm2r3HdePTgKu0EYK2xgA14T3aCFSa
wPrTXnEGzU8cR2GTSudSJzlge1IZaTPJXg4iaYJyEGKRI7Cfb+AHg2OgFPa2
yYP3rW3MsB7FFw9DRY92IBcholJqyilYPuvDszjnVkHMxULnSA8VqW//I/Yx
M3MwRYOP8fRIuSuV4fphLg3B4l4lD57o1qxhE9CAv9NLWtbYyGlgCqq0hAcV
MZ8Cl77ydjcbdMwjOMCrqjPnDQYQsJ5p1SFT5whZ6BiZNnc1KwLadvV06Cf5
mrNKOXpavNBBYEaUXgMPuHUa+PxfxdJZ1gqurhT0aeyqYFlcGnh19It+nXdy
hdXxwtgiZorefAlauL3hS6YjFu/GEMr36/trd3z7L0DhbaUwuu5KZO/oaQaZ
sX44fh5ZXFAVEdPH2gh44fkCxHB/tXXNSjipUGDFJVvxrVHf+IvRnYb0h5mw
yMvbTcS8DsP3fY0f++5lyBs04VjSfbVBR3S/75f/qlh6D9pJGeehX5cfaP/g
PwjmKK985uM6IGGmFXvo3ZHLJLZRBkA4YVDi1Ed+m7yy8bx2A3Se4MZT+vVq
iON+PbEw3hQwHp5HE5VUCOWolvegfLOg/trnzeKPp4E7fsza/of9IN+wBrYF
tyxoehsvY9bUNJCjKea78BQEBKpv2mbKvgUiRS9dr50eB57MJjS0SLdAJlMe
b93X2gGNkxqGOWTjgF8Jk9OG5ylEf/BJc7b0WHhdECSxsZzPs1iwxB6w5j1I
C/vN80p2bPH2VYSxGGLntgjlb+ua1iNFwsXRiPQm+xeKaOL/z/97OuVOK0KI
+NaSvctICMvjZfHJD0OnNlDhQB0kE/S4SaizAUJPOV6rqJwEdrsmWF4VpsXE
V7tc7M3mhPWcH3uA75kiA+HfLzd9tCAL+Y48C/msp8myVX6hDC20b09CexMI
0n/9H00f5irr07J6qNbZd80/7QWk/n7gkgZ2CqDtNS3pM5VDJnTZgWYvpWH9
hAMkEdI6HGC5uyjXq0N74bilXz9C9oryLaBIlv+8j6MEcLgUuRDZOg4Ui3AS
4TnjY22fJxr2ohnhcSpcttzuR0AKPn6vd3OwZBbmtReUHTk11UF5C73AK62z
qL/G0b07bA+amzHYJzSUBjEh8bD8HtZ4HpHqeoS2TG4Dx1Av3C8SR11ZR96K
o7v2xxif6uaF7bx25FmiidwmmvgNfasRzRJa0/PRZ/0PX2WTziUXQbUOIuKn
ynuBlx8MKskHx4BZ/cTN7ZIqYOOjUgnGu0kgyfsv9mSmYLK1+xTAUWaj12lv
5OD4j0NOnMlkFsWukWycWlL69j18+9c0V8WcnkDy5wc9BCldAEIb2+qFhWmg
57JNyK1JKyDa8vIb39h70Cvhw6VXP85Hp5Yfni6Zc8CW+HPip0Q7we1Nn1KI
5Zhjwk4nKV0han4Dx1XTgnVrgz4BCivg8rSydA7uL9v6vvlz5/SRfI8lHPNF
vv1v/WlQrb6UwhyGoTeNIPbOt345n1BCkyMijmpjVm4i8f72Pbphtfky2jOu
6JKJolmvXEd07dd+ed/4uP6UBjPYQqS2qHaBEvZDLJ9l6bXtnKClZZcK3146
mA/Dsh2PjutBa/ZeTJOmbgKJAr58nz/kKl3nxDUZrIGmCNHg+rf/uO3uC2Z5
UT+HRO8jTc4mIYLtoehhLLVOUkAdIkbfCp7UgfkI+Rn9SRZhyCV3B0l0GT30
RMPt83+gZJ6r8ZKeay/Aq5wRAUB+OE4EDioUNVm8KigHuYgV87Lg57v6MgOx
mh2q6F0deRwqvSpwPmeTREWYGDpBkcJtDI6FJsDjXGeC4Y+8SjODL1PPPUhz
8ZLS/LZKqHywWafSZhowDs5msCYURBc2Zazwp3PBcVhs3UDIW6MIZFQvd5zY
rgCpympIf9J/+cUS2u5WJzBfcp+5/kA5tJ46bq18dAKQctbisE3bKPCxfZl0
Rq4atvOUiAG1ZHN7/sxrmtMMBFnw+wJcZW9EMtXykKYSHc1WEd/W6RfoDsjy
Braj94V/ODKY8hI0Pfzl+9uWSJt9ajtyAAedcx68NCnQg8Io3uv900C2wruB
ro1EwKe8Lt8iOQ6IudjOz/Axbv8fc7yKqw==
     "]], {}},
  Axes->True,
  AxesLabel->{None, None, None},
  AxesStyle->GrayLevel[0],
  BaseStyle->{
    Specularity[1.], 
    RGBColor[0.1, 0.1, 0.1]},
  BoxRatios->{1, 1, 0.4},
  BoxStyle->GrayLevel[0, 0.5],
  Boxed->{Back, Bottom, Left},
  DisplayFunction->Identity,
  LabelStyle->{FontFamily -> "Helvetica", 
    GrayLevel[0]},
  Lighting->{{"Ambient", 
     Hue[0., 0., 1.]}, {"Directional", 
     GrayLevel[0.6], 
     ImageScaled[{1, 1, 3}]}},
  Method->{"DefaultBoundaryStyle" -> Directive[
      GrayLevel[0], 
      Opacity[0.2]], 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "RotationControl" -> 
    "Globe"},
  PlotRange->{All, All, All},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic, Automatic},
  TicksStyle->GrayLevel[0]]], "Output",
 CellChangeTimes->{{3.8011767754109583`*^9, 3.801176803927899*^9}},
 CellLabel->
  "Out[193]=",ExpressionUUID->"45a0081c-efdb-4b3c-b1e7-e6b746ee1734"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rhoplot", " ", "=", " ", 
  RowBox[{"ListContourPlot", "[", 
   RowBox[{"u", ",", "\n", "      \t", 
    RowBox[{"PlotRange", " ", "->", " ", "All"}], ",", " ", 
    RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", "\n", "      \t", 
    RowBox[{"PlotLegends", " ", "->", " ", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"BarLegend", "[", 
        RowBox[{
         RowBox[{"{", "Automatic", "}"}], ",", " ", 
         RowBox[{"LegendMargins", "->", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "0"}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"5", ",", " ", "5"}], "}"}]}], "}"}]}], ",", " ", "\n", 
         "      \t", 
         RowBox[{"LegendLabel", " ", "->", " ", "\"\<\[Rho]\>\""}]}], "]"}], 
       ",", " ", "Above"}], "]"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}]}]], "Code",
 CellChangeTimes->{{3.801176482772049*^9, 3.8011765107698812`*^9}, {
   3.801176601324341*^9, 3.801176634983418*^9}, {3.801176681468307*^9, 
   3.801176716811192*^9}, 3.801176756006447*^9, 
   3.80117681919855*^9},ExpressionUUID->"b537ac9e-d59f-4505-8897-\
2da2c915e7b2"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[
    GraphicsComplexBox[CompressedData["
1:eJyVfXdAE0v3NjVAAiGE3kNTFOyI3T32AvaGoqig2ABFERAL2BsqNsSGioqo
2FDxYmHXBmJHUVGx0S2gFGlC+HKv2d2bE/e772//GY8z+8xkdubMmXOeGex8
54+eqaaiouKto6Lyd/r7sYHfaTWhKEuRrPE7pazkcj2hIEepylNL9D6NW02i
/ycVcBlZjqtSTirg0jLzfqFcLvwtRxnQ5eTtEqPfZSSXc1B+IcqnHyOUT6c5
dPsIxfLVKD8H5RciGdcjf5h25ch/P/276N9rpCgz5ctRfvWfZTBWLB9l8v/H
Z8rnoHyO9uPyGJ+R5Q9livDNOfCFoIAPIlDAY/rJSFGmyzP9ZIRSevwJqd+p
DpKFinIUT44vkMsCRZl5X0cu0+NCQy7Lx3cUTy7T41kHyfLyzLyiy9PtpfHo
9mnQ7aDL0+3gSDUUyzHlNVCKHzyOq5GMx385ktF8irKj66MUZSmpKMvH70eJ
vL2qlIKsUi8frxLF9xn9Jf9+YCt/X/69mPJ0/9soykx5Hsqn+58er/S4M1GU
cUqPd3o84vGJxzPbP0jWQbJ8HDD9w0OyfFywvxel9PegxwH93Rj9jPJzUH4h
kumHwScV2sHMd6FieRafVHyffjA+mg/MfJGPD2Y+0eNByjEf6fJ4vnLh8xC+
Diqvg8oLUD6tT0wUy9Pjg8Gnx5e8fnq80PnM+3R7jZAsVJQZvUm/T+tNHSTL
yzPjkm4Pxqe/O/2d5OOC+c70I0T5PJTP8Z2Z3yfvZ6Z/aLuA6Z/fKdM/dL+b
KOYr6X2UMvqQxqfbJUW/E+tbujzSx+z3VsSnvwMzjw0UyzPzX16eWb/w70D6
iLHHeL9lxh7j0G9MeQHKFyKZHj9IH2L9ycjy8qw+krcH6XtWXxOK+HR/IvuT
zmfsRC57FduztP1Dv1+O1otCtF4UovI5KJ9+ONpHt1/p90kUy7PrmTxF+p79
Hor49Pih8ZjxY6Mo0+WZ8UPjYTuOthdpvV6vaF8z+pOW6fLlqDy297F9wNgD
CK8QlS9E+OUc+Fz6Ta7PmX6RovJymZmH9Sgf70/oh1nv/rx/wesXu56i9Qzb
29VoX0KvS0z7kSwvz7afQO3/j/WYfjjXX6TH6XGB7AWlesrp9RSVw/tBWmbG
D8rH5QoRLod9wu4fOerlSo0ohfcpMaXwfpQBpVCekevp76CYz+hP+qHlHFS+
EOEVovfL/wOf2R8hWQfJeD0XIJlHyduB3qfHh7x/6PFG9w+zThkolqdlRk+J
FPOZ9jL2s7y8BcK3RPjmCN8C4dN4uD+wfYT7h94fIPuKken9HrLX8PrC+Efo
/TW9/hYimV6PLBTLM+2n9Qlj/8jxGfuHUixPf196P12P8KR/xleyT+h1i9Yr
WO/Q84n+jsz4p3FRPv1w7ROw/sD2YTmSsb3JjE9Q/H9s59H7M7k+Y8e9oqxk
jyH/A7NvEymWwymzXosUU3b8y8sz/hFF+5bRt8gfwuSXo/xCJGO/F7YbpSif
Xk+Q/cz4c+j1CNnj2D6hxz/TP8z8VZSZ/rFQLM/OX1CsT/5d2P0RKq+B8gUo
XwfJ9HdwpGXqn2SaA/3+b5myp99Hsry8xF6xPLsfR7KRYnlav9F4tD6jy9My
XZ7Wb5z48oexL+kH2auMvyTnz/atkj1M949cX9D9Q+srpj8KkSwvT7ef0YfI
n8PiE4r49DpMvy9Fsrw8g0+PTzvFfPb3/JbZ34/Kyx8mvxzlY39VNZLl84ip
D+/P5DKNz+gRZJ8r2fPM+Pyd0v3DrMP2iuXZ8fk7ZccPKLaXHv/M/lb+feh5
w2EPM/OOztdRzFfy5yP/i5J/hsO/wuDT+dL/wKf1H7b/sJ1H5+eg/8f2LP3g
/QaKTyjFI/D+hakP5XPh4/0O3h/h/VcOKs/govK0vUKPa3q/j+1JZr1F+Vz+
bK72c+0fq5HM7Bf+jM/GP5CdQdeD9jtMfg7KL0Sy/MHxFRx/UYpviBTzmffp
B9s9KB6gFC/A8QXGf4/ysT2O/Xv0/MTzF81vvP9l/Vd/xueyP5XsSxxfqkf2
K0c8Crcf78fx/p3d/6LvVc+Bz+gfNP859pus/kHvYTuVmRegUE7Jf8jhX2Tw
Gf32Z3xO+xDbf8h+Y+aViWI+tvc45w/9Ppp/2P/Axh//jM/uJ0EBnxmnyB5m
/dMoH9v7aN/C5Q/h3LdIFctz+m+x35fGpduP+7FecRwojROucYTXJzz+uPwn
TPzif8TH/hbsn8HrYA4qTz8YF68ftH7D6w/2b+Sg8vRD53Pgc/pPsH+G4QMg
PNrfw+z3KHk7QBGfI/7L5ON4MY4n4/ZjfxH2L0kVy7P7cQ58jvUDt4/LP8Pu
hxGevH/YeORvmdY/XP4WNj6v+D6nvwq1H/uLsH+J3V/L2yNWLI/xWT6KfH2h
/S1c65c8X8m/gv0n9PqI4is4/qIUP7FQzGfex/FkLNO/F/U//j7YP8bGmxEe
7W+TKJan9ydc+002/qD4vlK8CPv36PeRvw7791j/gLz9VorlleL5KN6P+QB4
v8nGj0jF92l7AfnzuMYHg4/GF/bvsXypP+Oz/kFCEZ9rfafzsX8I+3/oh6v9
HP5JFg+V5+LnYLsA86voB/GvmHVa/nDa0VzxWS5+i4aizJQXoHwcJ8HrN10e
r//IjmDj+/83fE7/Krab6lF/IjuO0z+G/V+IP8XY/SaK+djfyWmf0e8j+w77
P9l4w/8Nn8u/yq5fiuWY/kG/g9XP8vK0/uXqH0Y/o3zsP6THI+I7Yj6kUnzY
QjGf1f9/xuf0X2H/FK0fbBXzWf1GKLan+j/0C42P9BOr3xR/L6OvED7mG2E+
EvZHsfwsUHyf/q7I38z5/Wh89P2x/5nlP/zf8Ln82+z6q1ieGZ+YL4bWV7z+
4vUZ+4dZf6JiPmO/IXzsT8b+Z+zfZv2Nv2XsL2f9s6QCPtf6y/jL6fg8F98P
8wE5/O3YP8/y41B5HsrH+NhfLW8//n3Yv836q+XrI/KXs/5xQhGfY/4y+dg/
jf3P8oez/Rz+eRYPlc9B+Ur4f24//n3YP8/GC+T6Afn72e8HCvhc+oH9nigf
8yExX5IjXoDjC+x4VCzPxc/hbB+9r0K/D/vn2XiT/P+Rv58Ln8v/z+oHxfLM
OoziFUr8ENq+oR/kr2bWNdoexP5t7A/H/nou/gzGx/x/LnwuvhH2NyO+JzNf
Mf8T80W54g24vmrUXoTPyFz4dPt0kIz9sYx/US5j/y3293L1P0f9USi+g+vj
9Cdjf24hkuUPM87p74v5wJgfhduP401c8SmMz8W/4npwPo635CCZK16D4z1c
50DoB/PjcH0Yn5OfRijK2L+dg2TMl+KKh2H9gOtH8TVcHyf+/xqHK0cpPmeA
z+tw4XDVz4XLhU8/mA+N42O0zPQLpYDLyDhexrQbyTgf4TP6BtfHhU+/Tz86
SMb+Wh6Sufy9+Pfj/sH14/gjro8Ln24f8p8q+UvrFdurxM/HfH6ueCdX/fh8
D6pPCR/rLxTfUjq/xcRnfsv4/JfSeTEcj+TSzxg/58/1cZ5Hox98bo6L34r9
RBzxJs54La5P/uD4L66PE/9/jNOw6wn9nRVlJX4sZ///uX7Mt8X1KeFz8Rul
fx4/jB0o1wc4fsrJl8bxeI7zJph/jetTwsf2Dzo/g+cvY4/wkMx1/g7Hy7F9
he0fFH/H9XHi0+1D8QklfinjP/stYz4uJ/8W24Mc9ePzPbg+JXz0/ZTOE3Gd
P6K/L+KjYr4A53lUnI/wGf88qk8JH/NZkf+amz9JKsoc51Vx+5X4DFz8B4zP
dd6Wy0+M49XovBH2U3OeV+LiK3DE/6MQPwHXx4n/HzwGpv2qiqlS/BrHu7l4
whz1c+Fy4qN9MD6Hhfuf1We/U8wfUOIbYL4FF/8W4WO//3/iyx98vhqPf/Z8
thwf8Y0x34Sz/Rzn5jH/BNenhI/5yky8FcmI38v0DzoPqMRPxnwUzIfh4s8g
fE7+Mxe/GvPQcTwE8c654ilK8x+PT1Q/5s/g+jjx/0eeDctfQ7i0nsDxOC6+
Dkf9XLic+PTzv/qxuPalXHwYrHe4zjlznX/C9WF8jnOoSvFMHG9EPDPOeOX/
qDeZFPGXcH2c+P/Bs2Rkhh8kl7Gdi893/BfvDtfPYZdz4tMPzQdi9BqliE/L
zL6CUsBnZMxHoh90HkwpH+Ez8RZcH8Zn9ICirJSP+ERMvAjzizjOuzH4UiTj
+tH5OVyfEj5+XwfJmI/E6DW5jPlLmO+E9/9c/YPwGX4Kqk8Jn7nfQVFWykd8
Jeb8B+IvcZ2nY9pnoCjj+vH5PFyfEj56n72/Qp6P+ULMfRVyfMQvUuIjcZxP
5Kof88dwfVx8JyW+kQ6S0fk4Zv+F7ltQOt+H+WSYz8bBf1PC5zo/iN7H/Ccl
vhMT35bjo/P7Suf9ufhkHPVjfhquj/M+AQ0k4/tXEB+K2T8ifhTmU3Hy7XB9
mF+H8Jn9I8Znzuco4jHjC/U/jceMf8RP4zqvyswvS0UZ14/Pv+L6lPDx+xJF
GfMB2PNGv2XMH8B8A677IDjrx/xAVB8Xn0HpPBuO5+P7JARI5iniK41PzBfE
9XHcD4Tr48SXP8z3pR/sf6DHO+1fRfw6JT4e5iPacORj/HLF+faf+Pg+DsyP
wPd/oPuXaJnz/iXcfpyP8Bn/D6oP42P+A+Y3cJ/vIxVlrvOP+P4QxBfl5Jdi
/P+6b4R+mO9LoPrldhXzPZHMwdfC409pfKL6Mb8U16eEz+VHQnxGZh1l+PuK
Mr6Pj5MPyuW3R/cLYXxGxvj/47loxm5h7Fl5PuZnYj4nhx+Jq34uvxInPgeP
UikfnX/HPE7O8+//476dqRfdb4Tr4zxfb8Tx/6j9rD2riMv4OTBflAOHq34u
3P/Ep78rvm+K634qel+BzrNjPi9X+7nuOcD8XlyfEj4+D4/4i5ivyJ4/UJS5
7q/D7VfiG3PwkzE+532PyH+H+alKfFSGv4/0Wz16n8P/yOmfRPjMPEb1KeEj
fjB7PxeSMV+Vh2QOvisnXxnXh/nJGJ8ePxgfrx/o/gGl+wmY+wZ+/358Hh/z
nTnv88L5GJ/W+6g+jM95nh/zAdF9XfT3xPd34fu+OPnQuD7M30b4zLkBLnzM
d6fnHZ6/zH5C3l7ET1biM2M+tA1HPsJn5i+qjxMf890xv5LOZ+6f+53i+y6V
7rfkaL9SPsYXIJkDH/MzMf8S8y1ZfreizHn/A77/DfHhufjzGJ/zvjiab0rv
Rx3pfEUZ88Hp/Rzmh3PdZ0LjM/xXVB/X/Si4PozPvK+hmM+1f2H4tjzF+mgZ
88nx72dknI/xBX+ujxNfA8n0/ojj/hV6P4T555ivjn8/7h9cP+bn4/owPvO+
/GHy5Q/W/0x75fstzD/HfHX8+xkZ52P8csX++k98+mHwCVQ/gfCQzMGHx78f
9w+uH/P/cX0Yn/1+oJjPoT/Z7wkK9TH7DPp96Z9/Pzs+/1w/vr8H18eJT9sj
zPxCMubL85DMwbfHvx/3D64fny/A9WF8Vn+hfHy+x0gRj9b3mJ+P+fz497P6
+c/14/uBcH1K+DYgvuR0a55hCeOfEC3SuNk98o1cNgbHsiemmp/qiNMPqkJc
Ei0hue2T52fipMTmLdLPCQOswNSy6fmAzSqwQf/A+4TXEkhfbSv43LGecIhZ
ui94vQQKVzi4Lrrzi7FXopa7d/BbUcvIU3Jv9vxwuJHomJnRONHLDrKsLKtm
TdeDAW5+GygXOzDKjrZTO6cLXkeaDVs2S2DqWumIA43sea3sHlnTjpY2M3iZ
pccGnu/Dnr873qkoT7hNjZFXrXBaFJinDl7Px49/r2ENvsO8Jy4xbCAueCeY
6D+whjtBGyf1dG1i9tmZ99ffCrjI+l/GB3kvTzjWwMjT9mi1cZzaTPj3NLnh
8dIKHoa7RuxJVoVBXWsG2Lpbw5YF3zb3DlCDlm4vH1futobhs5MPFrmog3b7
1AkZP61BNC3gXPRXdSjM6W9z966UsHK59ql79yq5fqom1B6dvfMuTEpu8j+f
2Kv0C+NvUN1ppup4l7nHhKTHyfk9IZ/sk9WppztWzPn5pYZoH7gylm9cQWqP
r77Pl+Gt+NJ3WFOzobw/NGDsjOjkwAxt6H5kUcWhVfLfJdOf77wS8gwN1OHq
hf5pLe0ryWGCL8utaoWw3yTnV9fyn0S3y6kPB7+pJ7bu3uEf5PFNXr8OzDy0
aODu6RpwN1LY2fpf9yE9nHht57c1X4iMXRsCfdsZglZJXMHs0lLik9UiKz1r
MYiqFrov3VpO+Po89n+SLQbPXm+dk8eWE2faZ/3MmcsD+5m1w7Qlbwk6/Y2b
Q5QtTF/zi8gn9DwsMjNinxMXjgUHBHQTQd8W26nLETeJrm/LBp18WkF0WtPr
89iDGUx6cNaprKEdveQ4Kipmd75HHTl+jOjbKDSbNLSISHjsB50C7tIpSZeL
S5b4ju38iXgiGZ67vKcAlvKCb5UXZJMP3Sr930eJof/FvBjzylekXv4DaZt4
9r4dSbdROiPGMvwZOZ4RePfqn+bU6gf58pmVl8k3ll87cUbA/unqMvv9vr3f
W9158nZKiaOdWut8T2kig9t1Cs58KIbFa/xD7+wtI7U+Zx1asp/xv1HDh31P
3B5gBPfu952RNqySnN/YBm4FG8NGqxhpWTD9vcyh/7qQ4he5BtSQxMzUNXHG
UOYuaDnn+0Myfc0Np/EORlDqc+u9+PQRUnfUe5UuLYzgaJhe/aDH+XL7wgQS
KfefC5+8I9uZOB8UDTOF/Ltqxw0Tssj4jX1B+5UpOPq/+rV02zMyIGZSenKG
NdMfv/WLCD7wl636HK71+/9l+5GXnyev+NJHA55J9VoNz2LPax56emVL72Qr
Rp6XML2y7TZrRvaMrkpdK1sHLi3SHRIRKaCaqSK7cfY6oEpYvD/1To/y7vbS
8LuZHeTdvxAfntlA6p+b5546Vx+WON8vPDbUkNLu8OJIcJE2jUfNCX834u3i
Onm/a1DnRcZbdWdpwsjvX4Kr4nQp2wmmg3rl0+uMgApM8B35er8uyFOq6FL7
97ZntcDS44ndx1F86tKvDyfuqLL3d+0IbDQjlz6j/ZeUfN4Rk1ddbzbcr0XR
87NHuNegaKEeRX//ryc3wOd8LWrWwUsVOVulxF5fD6FLcBN5pOe2jnotG4jz
0//yX/JNk+rneq6z+z0VuPF85P2sLlpUZ5346fnrNUCeUg06wk1esvbyaioW
n5ihCTnPl+6QLBTBBC/tt+mWArg5rZU0gVknWd5NezddfTLMAI44+GnFt9GR
pyy/ZPmllglVM4QAP98N/TBFCyi+/WVJgiaYnh2TN2Q7yzfRVBvZ8qxaPdEk
nfAtaYUq5K+Ouuct+/3yVD4+C4k5KmN3dP5eQJjabF/bZokGTAnvb5JaWET8
eFBy6LpNJaHdZ7Wqu1E6ceMHqIc6qUD1LXW93N2lhLjd82VWG4sI54qOjzK3
JxGm+7a7Nw1h7z8vuRX6TU22Hs6sdhxe3az9u39l67XEtOPLToYq1P5Tv1z5
djZw/5R24tcb6kDnW0VFbIud20SW3r7jM2+FA4T39vx2ufg7+ZzfoY2ltx3M
PhkW26JlM+lkNW9q2wum4NH1ZfpkXx61ZhvZZk6JPXy/qTrE21eP0oWBNx3T
baA0ctHy1NW6VLGKm4nxewnsVX/qNTZcQFmYNrWKjrCFh9maySV8AfXlYIiD
1b/iM0NebrCN3mIDO5MNCDNLTcpp3Opvqo3K8dlD5XsOvArgUw/XG91KXGnL
vO+ctajdJXsbOB9odmTPVW3qyUL38rBmMzhUFJD3XapO2Te+F1QdZf09viv7
GG93smLkBN4xm3YnWDl/M8/5kbM1I9sbzOkw7xQrn52RtN/8qiVMzhrZpVOI
DvjHDrTfvVm2Xrpu6d/aVAAtrnUPcvNi7TWHPSHNH8pZf4DdorMxm9eyctSw
hnZdwA6as0zAoVkHHjc31LiLJHCg+WdZoMQABF7b8t8Nt5Wn7P2Ht23rxKdF
POg0J3uny04JzHyW0HJCC/Z85Kyb64/9aK3LyHmTj70dbskHgzu97m3zs4N+
oloJsVUbCjSv/uXUwg42mZbmx8ZpwaVB7ievlUog2+b1sfIE1l/wIfJE18VZ
rH9DpDrq6nwLLZjV/vKh50F2MLO3y8oL/TWg5Pua4VP7yGT4dndVgwbMOje2
6YuhTO57hj/2vCaUBDkmhxbL2ts/aISTPw98O7ay2vaXLfTcfybz01Z9eH3s
anArawnsDzDuNmmzEJrSYfCmpxKo/qVm16qvAFadPbKz30EJ6FxdN1y4mA9a
8WofGudIwCacv6zqBHs+P6FjfMy5ED4jv3hY3MNQypPVwwu6UmALG7IqHbZ3
5YNvSuNgx60SiHDXywvK1ILsLS4bexrJ5v0//1hDkt5Uv2hrDVhxJWq9WY9q
op3Wmq1d1mnA0Yra/JiqSlqvQnHJvq13xrF8O9HrX3d1rtUTvce1j5w2TxNe
j9Gs0krNYMq3mEDd6ppVSbrWLm9qkNlLSQYamvyQfGKCJXFjc74GHNuhLshe
/JHwrE+Jq9nCg2wLt4NO98rIaL373aYu0oa27s4lyx59IuOXdwp35LHnYW62
2eh42poP1dtT3yaKP5Dd3rXo9+mMALqbZBX/jHnGrFeXktUfR3vfJSNsOnvZ
+uuCj9nZZfz4LPm6y4N8z4CgEKtsoq/eIq/1dlqQ5/IkfFPJI7KhZnq8dbg6
yFMqYpXe7Ks+zcTt3vUPEkaqU27djja+i24g/P3Oqm5PU5HPXymR+kr40fu6
GvVkirHNUzv2fOv5ltftnAt+Es7f7L7PE6pTWePCSBNrFWb+v+nsHH6gpTYj
jz1y8vAbmb4d3+70uR0rBNTc+EF71xmqQew/6wWf0qf27Dqzm+WngGHP0hfX
LCCqRfjT02FaVMyWqVcW+7D8fNP0S6OPPjCF7NWxk9Jm86i0yjdexR50vgaV
8KFgw8NZYrgOXcv922tRj/ydD3Tdbgz+Hc9lbn2nSW3kPwt9JNtflH/xFs9c
oUrNOpM2RYuvD08mLbomNKqR2xcGYFf01+LDn7So2xPe3FzQnolTUScuxeuq
WoqY+h7/OH12/mYRzLRJSpB81qRUnubs9tHoRQyb8nnAU9Vqwjx52q6MG6eJ
86tGWdQG6cCWqmSfM49TiRlx/N2bhujBvskFmWvzMgj3+yuPdtkht0dkj1Ht
gK2dSTXIz3j06uZfGURQ3jLraNm4tOrUalofNSOI+hA3RFXgS+wNTNnkpWUM
M1KzWvta1xH8ER1znRtYf/vCkNEOuYetGPnN3oVB6wdZM3Jfckeaezkrb1Bz
dVzhTccPhBDeanbvlHwxfDh+uP7epnrixtQWbrz9xhBBes7WddeC01Z6e8JW
s/z3TY0P117uqQGh6p0iht5WBzOhS3R+b748VYGQ8SH7RvUzhA6JbWPTKmuI
nOkjCtM3COB3qgqfeq0Mj9IRgO2tFesja1ShZlY/RxcNDeDHXX+b80sPJr1N
W2e9VMCkmkZ+RfZHxUzK32w7M6hcA9be3daxS60BxLQO2n4/UhUGG18ZXESK
4cDtnFWLTLWgY/zu3gNDxLD20Y2RFv+KvxYLwh7mDdUEvYg7e7dPMoTyd11+
nF9lBQ79Y2zjG3jUAv/hMQtT6P7RocpvXR4U3Ze9/0o/Jou6km0F+R8CVsRM
FlBbpn+ZoS/Tvw+XjA+41az+e37J5OFSbY8TsvUuZFtp6IyrDpDdK+Ht9s+6
VMKbnLNqMv0Xtju5/89IHrXRpff+JQ9swfFsXUBxm1+Eg1XbvjvH2MDmBX9p
DxveTMzbeDz9wF0beCn2WN5Nth++WGPVI7GLLfiXdQv1nK8KbYK/Jqx0l+nn
0GOllR5Som1S9Lpnb23h+LniykmDVUAtqG/mkaG28MthafD1uaoQN7c44v55
CUw/tfdrq9ua4Brh9FLf2wZGms49Qe1sJG7ULM949soGKt/UmntMrWXiBxON
CielNNeR9q/UD1R4mUPEvZ8qs3qmkgWpr9bMOm0ClldutOjpXcTwDzp6EjpT
9xeQ7R7NXlcWbwMDHkwuHrKmgnwWu6Us85QlBA3ZuZM6mU92O/VJ4CayhR1H
LdJBPZsc8fB8U/N8xp4ANe/XTxNSbEEzNeXIgJlqULb2nXtrUwlcMg19mzRZ
bj/J+tuyuVvkxwHs30NRV9l+3KKtCpMfrrJWMKAbG08pU1kSPL+/GiP7qQa+
2jtCHfKWONvvICWw3cwn7IqqGgy065R7cJsEPkd0OrThphqcv9dr68mpEujz
Tjtz4kp1GPBk/2nf4RJoFfF+svEiKWHrd9La77oElkYfD42uUAHhzjvRtrUS
6BwfOEtolU3S/RnV8uudqN36QMsjRlQcNt/L+tttwmqXpRzQY+Rv8U1eHod1
GflqhnrnwqMCMMv8+mDTfBvosPXVHuMPrD//lPjx8hJ3A0Y2SarffSiW9der
LR06+dw3fUZ+ffxItG0yG8+4kRlhPOWDiJGr73VKmWnLyhN2vT6Yly6EoTqa
8bM3SiCg7OfttmUsvu3WBXPHRIph+cmkhpHjbH6nLwygX8tQcnK0DD93Ixyt
EsH9iV8vmLvZgnui0fBiDxa//YwRhmbvDUDPK3nE+ae2UHVizPkR7Vg+R0VM
un2n+78Yez487txcW00DatPloV6Rjl+JHsffjKECG5j8gS/vvT+t+YMs/biy
f7tP2cx+Kf+OlsHaQ7lEpjD9mk1uLRkzJSrFXLZf6JpNtqiSjXf4+VN0/EoF
42+YsOKL2T6NL8RodZfHD2reMvj2tvvNdl3KIx/tmCPp2+omkfio8tqrNxWM
v+UvWHTtvuz9w182bOhW8JWQp2Rv9R6jp6w3AF6V4ZVN+VXkh1c8s156QrBz
ri+5ValOpU2wd1NdyZ7fHXvnVoxmogi8wiLeV1+Ur+ey9Sx2cmRZjx/q1NLt
V6eLt8vtLNl6Wpz9deJ+E/Y8LhEWkNzZWwirDFqe2DWkiRyTt3b6DXUhTBpU
3XNtXRV5YYR91x+a7H0aC68tq/5poAHWG3mmRnm0/0gHOm916NV2aBU5vs/6
jyt3sudfhXo1h7bcYs8TDRjfN30uIYTQMUtXt17ZRLTb7D3j/Xox+JhcuXdd
n+WldK01LUj0ek0ceu3aHL7bAFb4X2wsGFdNFLr1bhjXLIJgVy3TJLUaQuOR
blwPIx348eDhIYNzBcTL2Kdfd3nxYWagzo3hG+8y/oyTn3IGVLVhz0d4Hh40
Y3WzNnwap7JE7PSdCDeG+P5ZbD451dt9lr06RM0fUvgqKJixG1cNvhaW+qGU
sHtWfrCsiwrMfhEXc+7rdyLx/mtLI01V8GxjPCji1A/id9pARHne6TjBuoSg
Xh/0HxvcSET2WTXM6F/3ATR2zOs5Wpc972/0s+dingN7f0Gl9RX1elE9kRmW
Jyzsl0OI03Zf8OzfIE9/EL6bnNJMZTh3jDwWtvt7H1uu4mr5tJFo6yA9kTW1
mFiQ23q9ukzP9YkfW1Bh+Z24Nfucq5tOM1P/saUL7I2jVKHtrcygn4SIGmQz
xHK+qpTIW+C9cHCzHtWWChz75kkN8XNb4VwdT0PqL8HOmwemMeeIqE3Hqq9c
UGfPw+99MGv0IftfhIWev4tXFzElaq5ryt6QQegvkHxcuEeNouudetg/MjzJ
gDIbsmDPoLAaItrxrwdHe+hT9unGdbGR1UR4TEMfi2kGVMrdyDlmsvm3S3i4
qF62Pqakxq5pVmPPx8OpETP2q+QQkzWvDakhxdQ9aZu0FpU/GP/Ut13tBNU5
uYSf3r4V04v0KffX2pP2z/9KvC5M36W741/3eRYNfzfigoAa3MEkaIrIEOYf
fO4w4AOfSr76YUV9kgjGDpCs5E0QU6c84uaSe9j7TZ07Lktt9BZD7qPVQ9SP
iaiNT7xg2mx9kKdyfCEM92z9Y8J3A6pk0vCxZeOFsOVZ7riNYw2oFaMvnC24
aA6rzgwfZSXr3z7Fl89UHWPv33o+2+p4vcz+aLOnYBJvmJg64+7EO3DQCsZk
van38xVRVRt07vybzx2Z2XPiF2v2/k6f2W19I1zMIWFP9sG1svp8kofMWTmG
sfeoCcGTltzcbA5n8y9VrjLVp0bdasEPAwvwWZry1SBSQHVJ3ns/bIYRbD/x
cK6oix61/mSv3NQMK+jqWXYztXM5eeehS2WetRl0fXjd/sm71+SvyQNnZmlY
weuSjq09WpSSziG+eTMvsHxQ8oDqg4xwC1iV0ThnoVCVMgldMzXnnSUktSxf
eXZDJdm2zeaknIUWMH/OxP7HY7+Te9tHLc6ZagHdlkrHTFYtI5uslrt3jjEH
YbSghQtZwfgHh7xtG1n/o4qRB2lEzdkvs79uB3QvC1hlCtWeJh6eNfVkwIq1
D+fI8p3Vf/q70vYZZQqjXt1P66AmJTPqU7t/eWwKi3R3bHLxVaVOB1OjO4y3
gLHdpJe6n6gju69JCHwjG7+VPntmZEUawMeyBXNz+6qBRLxtd8sb+tDdN8R6
dKYqWHe4KjzpJ4Ls89kJT7WbEZ+unthqXXJIvFQLru+vXhM6RUq8HxbR91pb
lm8YwXPcFiTDVz9wt+X+qQ2EtIN1QMen+nBsX7eYG+419HwDMO7+aXEUe17M
ObfyarhsPvw6dqT0RyQPWmgcWnNNphdqe+faZMv03b5pF8fptca8Lh2IazeI
mrNdDM8c6ps/N7F8QZfno8ZektnRL1zPnvaQ6eVBJk1+Q6boQF6I6nDvbEMY
lZg9cZyaEF65mo55scIA+i40Pp3Ui+WxJdWqmV3ZyvIEDS5ne7umi3+nvUUQ
mzS87aw1rN/v7NipwSMa2L9js676bI85ffSZtPWj/D5rRxnDpAchdV/S6gin
qFVtXsj2dztV+Klj1euJv+rsbWe7GYPEOmT11Lb1hOPI+pyiQivIO8dzsZDt
4yDRtrj/eGtYeZHqFDpGHyY3Dqg9mmkNQ7RCDP5aILNfVo4aXyWygtQVZ0/q
fhdBQMqpCYPnWzO/p3Gqpemi9+ZQR7q3Lb6uKf9/S2jZf1LzaR8R5MdGJWU/
sICez6RnJ8+W21NRdjBxgm5o/5ns/XeVNb1z0vUbyfDRA9/7FNjDxyHmS5Zu
0aHu8p8MbSbtwdilp0tTszb1KCegKKzGDu4ne86VtNClKlIX1Cy/wPLJ19gR
Fb5XrOB3yt7PNyH+15sfzXJ/rsz+chXuKGuWyR6tNwTv8mH58/X93XO0P9iB
MHTnhPI+htR4iw9hob3sYeyDPiLDtWJquP0+44pmOj7Jtn/ru+99W3obUHVm
Z69m8+xAcmCQcVqhPlP/FcGPrImdxdSvgJfrxm+3A50WYypHTzGgvpZs9nvT
yh5atS/t6uHK3v/rvWyfy+2VBaR+35c3dm+xBbP0LgMGD3tMWiSNMVz+VAI9
1BfPTdB/xsTTb5/3bJNzSI/KaPxccifTHpI6TVt5YXUBOWvmkJrKSQ4wb3zs
jHbnysiDgg13Sjs4gNFR8m3agh9k/dJbags60/Fj9r60Thpvv9/Q1IMfJSZt
tV7YwXJq8LaMCb+IuotHRmqtt4f3T9b1tbbShtknA7wyQu1h6qRh8cWOKsz3
Fd6c3OauGT3P7aBN2uDlTb3Z+9xyDAr84irUGFlzRJNI4Mryrdq5lIyb3LOG
kcsb1qVd9msgXFNyB/RLs4XhXQ6WVlrUErknanrUDmL5P7Ofz+g/PNcOjgzb
adBtuj4Mubzs1rMNdtDiRaWOh4MQ7knvLJl1zp6ZTz8WR1SesWVl87J286q3
sfwem5LWRVcE9rDkwOldH9oKoOjVKMPjOXawa+qgYbtG8yH5XnifHQft4Lx9
geaQUB346dK0c+Ece2g9UnC+8yR9CKrepGHYwR7ySo11WviKYHHukU/PptL2
p5TssGZk5aQSPsTX+lgO7SC3x6N4cLV+2bylKVXkkX1fa1R2qMLUmUY6zYGq
VFj9z4/bbLRArGfU++OtWnl5VRj9xNNwgVSF8h/jbn+rUzXxMaWVpcGnjYy9
F6SXpU+NzmXsnOvrn6RF5X4j4r3r55urVRG9rlR+6KiRT2ivvOiZYVxNfG+K
81+UU0C0cv0cPsunmgC+R/f3e/eQzbs63timXk2ovdy39mNdAbly8IbEB8Pz
COrtNdd9uZ8Zez9yo+u1d480qfCi6X5N2jnEqNs7x3xcwd5X5Jg5wNFeqke5
jezuWKVWSFTNq3DvJ5uPtr55vY5Lqwj9DuXxo2XykH/sr2q5/aXNvP/tUNHP
Qb/UqZSfolkG3l+Jnbd6JPZopUW9XhbRbfW/7jOq2P/hSeuOPwitjqK4L8V8
qmvHa7x970sZfx7dHw67o8O6NjeRY8Pu9D1n94MYf+egj/N32h9YTtQGVV0+
v4xH1Yxa9a0qQgTTbJ3u9T73ilnH/nJP1V8RUkg8un3v7eahf/vDZHpsbDkR
4+ahTrmJYKV3YlHzxHLi3EmnM6dXCWDJsDZzphjnEBaLtLRN17Pncp0NR7b4
HCCEeE/Ye+xiEZHudmjVM1/mnmfGP5cN3Qq6lOQSC/6OR3qKoEH70bcNnZ4z
+48exgN7GEq1qVbOnRcM1NSBV6/ub0troOMtAmi/0rE6fKmAOvlsbV7HSbow
oU2Ew6Pj8t8rWz9s7rfveUe2v/MVeI8r6MLeH0LkfvUqleWrHxp5wKexjmnP
HY29+leqqsiwhXElA46L4V3W9HjT3XWkQ4huwYvHBrCo3eNFSXcayVPT723W
Vvp7ClLCaVSvl50O1BJdG31S309UBTo1vHO+defbvwg6DVTvclxD9j6dLuu6
PDt9pSrULWhIWC5b7wb5xC3JPqsCW663r0qYUkus7blxSX9ztp4Jg7sG7/7X
/Uf1e5LTdO+K4QE549FM53KiYWyn+KkLxWCR3HH9SnfGboagtsn5Zw4IYN8T
c7XL7UTwcNrDX7sPC6Dpjcuwoxl0yoMdI126LjaV+yWi2PP/Zja6p08t1oIN
3bqOONdeX57y4UtOsnesPnv/SOi6pJ9DZONj05IJ/NTl7P7v4ctt5vZXNWGJ
f2lvq95CWL/X9GbBTXXo/E2bTLomhLm5BitGhTUTt0/F7hLJ9KTvOI+hGzpo
wdrJQvNhMv2w9GhFcUoke57cLP6zUaNQB8z8ok7ONa0nojtQYy9vFkDuVI1J
sZrlRI3pytiZK3ng92Z6visfn++WEvxf0g0/pNow7oNT31Ol1cSp72K7cSHs
+fBcv4drfcTsvUmZJ6J8k7XrCbuLr8UNw/KJmNcBOk0tmojLkX4h0ao5RO38
6K0dZPM1Yd+YhSYnKGJ8xpu4rT91qbkXJ7V4f7uScBozJ1T7Cc0/1IEP535N
Hb9Itr6e25sa5sCeL971zkecfYsP7tufhu6JF1FWdzeMKQRtKOwelmxJCqli
/+XBYarKf/8h6dilXlEyffRUb67VApk9Gr2sqK6AYM9nT986hH840oC61nY4
f6K2lBgVEnDj83IDir9dd+iI1cx3otqHrHjmI+un0rtU7FPZ/utUkuPlYbd0
4fTpQKfXNmIqLXS7uGKdGdNeN+MYYvIsU3j4ZT51NI49f9vr8quxlbL6v/6w
G6DvydiPlJ1bUV2LzcZwY09nYcpnfWp5vlFdbF8D0OrxUv9ZBHsfUmcL/pP2
uUJqy+yjHV0irMAie+DM8dW0P8QSrlf0ilo0qYk0MzHvaTqO/XsLOpviJ4ty
zcHJOWJhn2m15O6+fupvW5pD8s+FlTunNZHni0105w6l289j8MJT+n9vlO0f
Sk4eavl6nBmYj5+W26K1mDLo0T62N2EM3+88mXOTElMpKysG+81h93OBIsnm
qa1tGXluuk7FsUSZfbb6m3VqCnueUev2GmmzrD/eXFrUmJHAnieE3q9P2HjY
AnWzhdcnNxHVfLFoukjWHrU4t54faHtPJk8salb/2/6LL/qmt2mVFfyTqomo
sNW3I75utQXHygqj0Xdqyau276qXvZHA06bSxJLnMv02+0zMpTz2/NlPrdFu
0SI6nl1Pfpp5q5RPWcHy2TWTc2T6Mk8Y3jDwmhUs6PHxs2VZHZl5a1rTuUwL
CHTVfdkckUccrhlk3L+VOUiHUuM+XM4npmcu0hqsSt93Uki68s1WzXGX7TdH
USLPi2Xk4b/9PcbmoNZpL6/r2ALyiNU96vwSSxAUAW/dowKGH/Pg7bWJXUIM
4PDqJ86a/7ovItP7VUN7LQ3odsxZ80mdNqx8s2BGQIKGPGXv65/tH3E7uYdI
Zi9tvmUi0xdXhob0+hwpgPWPVWfvWqMqTwXwpOnB1wkGqtBBzc0oqVwAK1yz
XYX/On82umBTobpMr8YeDVrdLNsntV3WGDikx09C1zbS+5lsHZg+bt2GJwkG
0HtcVfm0q3qw6a/HA5+rofNTstQrfvCoWqkhXNUYJLU3EMLR5XlRQbWG0Kqt
RHw0Ux+MTEUbs/1k+7NkV9XeiZbgnZjYtPqiNrimGk+UtLeCEztzhpGHtGAd
KT2vdtUKqqLU4hs2s+cp3MHaLS5EF4adOlUwJY69b76Xmma3BReZ+Ab4wM69
oW0soH/k64fi4wLQsvghFTtZgNDtY5PTUAGcfrGl5v5PCzg1tlA814gP5nbv
o9q0soQnN/pJj53RAM1R94rmfrAAnYSYBy/SteBHfkXai2xzsOtuFT12shZs
eTv+kPNJ9vxKTlEfQdYrS0ae9Ddfbo0FXEw8k3xdRw3u/82X87CEXVf6t7GJ
pf37tjC/rk8U36OGOBndstDlIHvfe6B/1UGdSJZfX/Wu13UnVxuw7L9m/aUT
elDW+UbB99U20HLX2q6SOl0o2dJTcPWtDXQqXPd582Bd+Fh0reOaTrZAuG3Y
VxsngK/kmANXZ7B8/nVRzu+6bLFlZM2/4/UOEjD8J16vB2mCkGCPh7aw8J94
vS7M3hYwOmyULTz9J14vgJ0pmk/vRUogpfNnMk9FD4b/sGt1nf8v+9v0c+rz
dSz/PippGOHRw5r5PenlRTbXP7Byo9sKqesaG0buvtTk/UFn9vdf2NFjmkuS
JcS/2UCcPKcHTtonUtc5yva33y/sqEzVhb3LxXr5h63gkcbboh7pAtg9ZFi/
klIJvAyYuaTDWTHls9m2lZSwhYSQjy9VZfpM+/Igge80B/i+e8HnHjL99NLz
+TXzqQ5wZm9iWKfeImp4Il+9vrs97Hx0qqSLcx255KhGrqTIDrIsnSheq1py
e0lieeQzO7g6fcYAlVS5P1C2/9JOtvWskdm76RVOFpuD7aAmY89s1wxtalHq
XIsjy9jz2odKvxxslO1fliacDquM5FFLdsY/PbvZDmxS1t7on61Nma+teNRb
1h5fo4wuv5apUuOzxgUMmuMAIy+POnjnch15Zs6DLYkjHWDOMO8gt7V1pNqq
Tz2Ob7MHe4lZ+piGj0Sww7l9Tw3tIXu75alva18QD7NODtx71g7ExYVjj3pe
YfZ3zZqe057I7L/AYPdffhb2kGMy6yKRWEZW3b0913e7PaPf/kkk9mDmdPG0
X/Nz0vptaRsTWfsDDhT27W6dQxq97hPc/ZkD5C42nJqZn0qILZOPm/EdYFDA
+VhfZz4UL9V0TIyl8XTgVOK2F+8GsXJQtvl643r2fvJOjUe7DjvFytF5Zx1m
hNnD4y39g+fb82FBTqB24GV7uDXqit2lF3oQc8D/3euJ9tB34b7Fs2bpgnDp
cVv943Zw33Duytvz9MAnS1z81soeNry5NCsmmgekLzVf64MdqC2WQv5qLbBr
DKzveMQOlukPtnBbqg0mC517OFraw8R7R77FBPCASBilv/KaHTRuGNhLo5zl
R0dGjLpndk8NgrYWt3jZhv49UiKvKtpxSYAdOEyPe+t+QGa/zlucqNneDo6O
bu3/mVCB5/lTnHdUSeByyAafKx1UoeVNtw7DWinfp7675OedZxlqMO740rBx
Qns4PdfA/lSGKjx3aTykJ9svp4zUj8o6pAajUpbduytr/1V3vfel4ergmxsZ
UWDkAEviVUwWJsvj87LvHdO0seqxD3ve5tPX6kJvguX7zLhEJmcTQtDNUQvY
8tIOSic0tCx6JoL6CMvHrVXrCa21hR1eSOvI2yOuOfjG/CR6ne+fd3B+I3lH
Zfe7TzcEYM1L+ib8/oLh17pNdvbMelZFruCFHrsqFAK/uGWQ8d0CMsv/5v1Q
W114P6Mhx3HVV3JPqEG98Rod8H4zoHCCqJh8oRKuMiW2D6FiA3tmahSShbrS
M7qTzxIdbSWdCYt8srin295YixxCnpJpRXfbPJ1QTgyy6P6sXVIZQRybNIDX
Yj4x+oy9+k59KenfNODj4Hb5DD8xjl/Xdzq/kJjU1OfcrCZ1aqdX+2eNW3OI
8uq0mZIg+v7fHCI++P4mdx9Vao70UecnJzYS/yTmOpSL9dePac3PieN+1j1r
ZfNXfeiMFzP6nCNyg04FNKzSpm4HzUtL7C+Cwo3H3O6/KSOfOo2acEBiCCuy
QwdY//pCjKk7tO7WGgOY1UvlwdfXBUTwTBVRx3diuLtbFe6FsH+f8U1xN+Ee
2X65KWJb4W4rYxAa3QpM2lJPHl3XLfm2yBDSKqNPhL9XoSbtvNFx0gEDmT6o
uT87WEoeuclzm3JOA6b+w5fRpk6U7EgfIRv3E80C+5xfxKMK+53VdXMygq7h
R4v3XFanBpuP+O6oyt53dSSwbay6bB2j0+HrNkb0GygCv6pv/CWLeCDxdcs6
+69zz8NCjXse6CQGf8MX6zPj1CBpRnXu1PEmAMmP1ho+PUYsvCDItx5iDI6m
1yTvt+cQXvsFLQ+3MoLeTkczpSn5xF/Zb5z0LcSw4OhlDxs3TbBabmS0WGbf
LLz5c/Fd2fgMG6+aZP6v89TPLU6c73eAD22KvEZc9/s7fhx5n+eR03vasN5l
Dc1NxOuojC+R+ylCODtZekVHBRo6OKhEy77nzb2/IssjVWHJCvE7VdnvvU2F
GkQ2a0PdwKoH/H+dl/8y/Ei/v/eZV8eUiv5ef/akdWo99mYIUR7NH9d+rQEz
PvJPXl1VIdsv2DqM9Ojin0GUrDg+4LGnIVWz9/SE5S8LCGLRz1NPGgypwZWe
6iFiDchbN1F6N5S9T2nbN6PWda/FlNHJ5oWB5moQ6hI1cMgiMaUe2PJOqDp7
P1T7Gbumn3/YROiazzRzrTKkHFzWdxMG8yBobs+C8EwxFfZ22ftaDW24Ftj7
+9JVhlSfaW+7nI3E9xMZwXsTL+8SbUNq2RRnq+AI+u8giylzl8X3ujWJoSRn
U5eMVWKqT6PpsEWRBvBP2mxIrcg98XlKrik0nR/x/Np5nhzPHFre3hBSK7PP
hwbNdDU0MIN5Dp1PvH7Hpy6S2+afEZjDvqiPkuOlepTBYI0HBgesYaDEwHXQ
gkbyue+iS+Yye67NwWiPYhm+So5/vsBdtt677rWuHiKi5pf53C9ZYQ3/pFL2
75ldPmrVvvCImNowaI+qk4E1hP81W/omSEyJTuaHCv91X4zXzhHXpJGW8E8q
w88vorIts2zhn3SIIbXl0rkfqjL7a5HHSJl2EFNXC1PGSyPtoHjHg0n1st9j
OM6p+Nt8S/j47dQbc8MY4uDmMavMz1rAqOitl5/0vE96bZy5ZcFtK1g690Sr
2nvPyfUq1U/WnraChdrQPPmvZ6TFF4PzFZm24JbjMK1gmxrlcLPHafPpdvCs
rJ/nzPIicuuVd+7TH0ngbfjbQMOX38jyxJgaV5DA1nsRHnHSKrLn1Z6VmrLx
lzb7rz6y/ROk8+oHqv3rfoVzzZsd9Y6rgLPK1cAlbQzBb+WHcYWlfHmqDwE1
B6bXXRD9TjsYgtOu7vNS9Iwg9dWmVvsLtWFg7fK73plGEF3+a9OVrZrQdmrz
mZGfjeFYH9VjPm00ofWLhz93fbKBsf/wafgwO9JFazLPGtqrnqwYVMWHkeLe
3TrNsIZpb1dv2duFD12Pj5zHv2UN2y77tPq6lD0vGhs3/VfzBx4kCbOehedY
wkjrHccrkjTgbZxB9LVBVnC5g4NZ2DZN0HOYNEAqs/ctBl7a1LiYB/wsjQf5
MvvwW2DNnO6gAe300ofWu1mDj8Wy3ZVztKBzH835fc9Zw7xV/PdrfLSBf05y
a94PCYwI1zTwWV1PEBpdesbdtoabv+7dnnXdAKx3uFyU9LWBu2+T9qbL1nfr
Vi363NWwhYwzF5cvruFBl3Fro2dOtIGgU3zzBymyeeqZ+Sz8hg2k7d16vCJC
E1b11zGPtrMFjY3ijmb9ePDDfW7idxsJgOME/z5rNCD/5ev07kttoedoz1Wb
dHiwvHq2x8RMCTSUZsemCGX7s9rB/s3bJeD4zmFv0yB9MG5wXnl8sgTGlh7V
iF0ohOA+Z3epysZHz4aBZ+qXCkFjVUbE8xA70NbY8jNxjgHcttFdITSyg3W9
zBqtkkTwsM/BreeaHWDv6u7WUyMNqFCfiF5fZPbit+vVETmy8Tx5ot3av+Mv
ivPfEW50nUEsaG4ij0vUrTfI7JeA5VWbP8jWv/07JhwMleHNHeqz+I1Mzu61
d4x9rgOEGrj7lfVuJv0mxrZbK8t3jZ1ZP7qO3r86QlKrmAr9rwXkdu3tvFMp
9vD0Xfm7ytP7iOaMmVEmV+n4hIpKr3abfzzs5ACSJw/se1Y9JE9GPG7fGCer
b5xZVc8FXxg8w4eFvlNOHiEeP5qoa1tHt18DBvTSvKcaag9f+V8/1LXUhEn7
Y1oWfbKHvTtuTJ8ns3c0vhflxP2wB+H1PWP8bmnA/wOwy+u8
     "], {{{
        EdgeForm[], 
        GrayLevel[0., 0.8], 
        GraphicsGroupBox[{
          PolygonBox[CompressedData["
1:eJw1mHeUlsUVxl+2zMyHiFL0SBFYSnYpu4KEKqFJAIEou3RdBHEhulQVDE00
bIyJxhPTju0oaxJBVJBmQ1EThEASoyGoOSYGpWlwQZaiYiz5Pbk3f8z33Llz
575TbpuvaMb8inl5WZbd2yDL8sG5KcsWwZgDtqENhNcWXEXbDv9h8EDIsl/B
3w8+Qn8n/Frwdfr50P+B3kB7D/op8HHam9BrwT/ELNtVmGUTclm2kf478NeB
w+G/i86O6PgTbSX0X8D3/Fv65rXInIa+BPlLof8BPQS8lLEO0EPBK2i9oCcE
W6vWPIpvrdH6oFeD1YwxLbuYn4sY68t6ysDr4b/OOVwG/zhyQ5H5GFwJbw/0
7eBKZFqDdyKzJZpO6W6WbO4F4BqtFfnHwN60VtD9wTOMtS/Iss/Bi5i7G34Z
OJ9+Y+jOyHR3vsaXobsDOpuyvrXB1qN1NU6m8yB4An4FMovBMtod8P8KjtQ3
mH852Nb3eyG4iP7d8BeCN9B6M7c1eC2tBfTtCP4TuXeQfx98g/Zj6D3gcsZW
QR+FfjfYuen88uH/nX11gL4GPZXonw5eEowWbxptEvTVycbEb4f8rGRr1toP
+r42Qi+jlUMvAGegvx56qjbBnG+wzq+R/Yzup7TJfPsc9FUUmNxXjJ1EplRn
kExe8wZBN0Gut2yb/hDNgd4GvsTcSci105niCJ/KTuAV5dmcJXy7EePHWM93
Xb++UxXsTruir5DWHNmB8D+i1aLnCPgtybOEfmBHZFZD1/u9beEMNxTa/am/
me88R5sI/TR4q2wa+SXg8WBzl4OfoCvju6eTrVVrPgGud33rCk33Ou+XuZ2X
glXuR/Knwegqgu4LbqM/he+ORmZcZuev781hbCa4Pti56zxLkOlF/zr4m4P1
xf8lOtrmbP3ax4RktHiyD9lJ+5ydl85NPnEx85vL5sEm7kfyRa1D63kRPVsL
LYbsyLM97soz33sh2r2N0Te1N+hFWk8wn+oC1mW2fvlkS/pnge0VM5wW7yr0
9ICeBo7LWVxSfHoz2DnrvAcz9gT6D0M/Es135EM/hW4P/QtwfDA9FeDZ6FnE
3LHJ7kl6ToE7GFtK9zvQpdF8czK8ubQR0POlg3YBdE+wRndOW0H7QTQ//SH4
I1or6N3BYqjW/CQ4U/4MXZUsjiuez5Y/Iv8GOvog3xl6O/QZcBv9PtDjgsVE
rUcxo97tTXaXSxZXL4cuZl/l6KxM1hd/IjiANl9+Kl8WjUx1shinmNYzWlyv
8b0U5WydWu8Jt+GTYA/kfsd4V7BhsjW/D90PnW2gB4G/z0ymMt/2r3NolMxm
17jdToPfD3xJ9+v3ovupQ+5J5k3XXvwcdB7XBMt3M4PlMOWyHuBUj13n5WwP
2ksXcAz87vBHJ9uP/F3768T8RmAx+KVkuPcvwM/9bHXne8FZMgnmjGdsGHom
Cj2XKae1UI5k7kOKmdFiyEDZiO4P+tZoOXY6e9/o+VLffw087fvax9wn3DZk
188wVg3/Wd218jpzP47mJ/IX5aK9vi7tYZJyGPgy+G/ag9AfBBvPcxmdo87z
aDI7kD0oD6um0LjkPmDsNfrnKm57HlTs3O572ATvafoHkB+pWoD+BObtBxck
y4XtPNbKrgZl5ofyx8Jka9LaPlJM8ly5Dzzmd7MT+kOnxXuYb5Qx90GwCp1T
adNp24PluDrwb8ni26Zg57shM7u/Sb6gOKDclCx+6mJLPcYqN+6Idi9NwXs8
PihOXJVMx5XJcqHsSvZV599dAQ73+9U9jwyWx5XPW7mfyl83+Xq0ruuTnYl8
7gX3wa3gGN0R/GYeP75SHvFYODjf7E/zN2emb7DfqfhPef22XjkLbMz6i8Hn
0DuP8efBOdF0/ln1QjK/UP3SPGfyS6PFNdl8tduD9N8D3uaxRfnwFAJ9lcuj
rflIZuvuhs6uyHYNltuV488w9nPkTsEvS2a7suFPVEfRCqGHJcvVWoPWHuhv
gS4Ab0bXKHSMBVcgfz78GrBnslpiCvy3oUtYx1vguGR1Qjn4rGo+1tGSNS/1
+uR5eBs9X78Mdve4/b/4jdxo5t4sGyiws9cZftNlJFvquU85UOcu35N/TvSY
sDWaDtGqA5T/tH7lv/7R6tI/MvdwtHs5CDb189c9PKb6GHpNtPha38Dq5reC
8TWuOl41dgfVKfRr4Z8A749+/vD3R6uD++nOg9leHvQXtLXw/4XMAK9zVO+M
9XNeCG4Jdv66hy4eP49Fy9PK17u1RsaaQd8SLbbM8rhRG83XHgIfpfWBXgXm
+/q1D/GUi//vk8Jaj7GKP8rxmWK+6sZo96EznQLvCreVIeB5yWyvgvFDwWLM
b6K9f5QXlB9GRItRDZLFKdHi6ex0hnqvtII+hM6WqpWSnXknfQu5w8qh0fK3
8rjq7rNpO6FfVc71PKg6dKv78otgEf0PkbkQXO13qjM46nFDcauzx/DWsimv
o1RPLXe/V81xWTA90qe3jeJkCdjU5TVvn8dPvTmGBDsfndMAtzfZnXxbNrZM
eTNarFbM/sztR3Z0Pv09sg3lDvdpne9sjxuKHyV6S2WWI48Ee+t0wW7r3a+P
y+6ixcBRyfamPaq+09tGfI0vUG5Ffniyu9G95CV7T+pdOTTaGat+UB7am2wv
2lO+24Zs5BWvGWbBvyvaW+8n4JXB9qX9lUfbz9ho39C3lLtWu53L3qu8Bvsa
elg0/frOaK8Z7o4Wl3Um8v+YLM+mZPlMee1LZGYHk+sW7J50L0XBakrVlo04
qxu0B+TLg9V/yvXK+XM9Hs6L5v+yGdlOSbQ4Wh2ttlaNvTBa7FAMUYwfkWyu
YmqN5w7ZUUG0fPEq+Otofqda+GSwuuu3yWKiYqPecA94nlW+lX8vcV0z3A5l
j6rvdBeKL5s87+j/A73DZZN6W+u9qndrt5y96/T+KpY90G8IfROyZ7kfyZ8O
0H9b9RJ4o9uGbKST+2NHcDxzd2Bvm+UjBXaei2l9kr35ro72/tM7UOdb6blb
Ofz7wd5ItwRbu/KF/h9o4b5/KFnu1F465Sw3KEfoPRRyVm80zFmMOOTz9AbV
W1T55kaPn8pXk5P5+HLPI8WejyvdVlXnvhLtHaT30FDP2YujvecVZ/RuuCNa
raI3n972euN/G97jwfxS8a/Gc+Jt0eKy4vMuxUuPXYph97nfjop2djrDSTmr
gaRf39E7R+8dvZ+ORsv9deD3gsUhvYH0/hHdJGdvXZ3PM9H2JzuRvbRx+9A7
4FyvIc9RLAz238jPovmn/FT/zTyazPaUn3v5Peo+q93mr4uWz5TXVF/0T3aG
8nu9K5VflVt3ep5V/79JREPx
           "]], 
          PolygonBox[CompressedData["
1:eJwtl3mw1lUZx3/ve997znkFIcGUusB4QbgIJKByBVE2WUxxuRfwCoLSZRXi
ohiDpKHWNCWNDS0ujTqAC7igATI6LVKKIC2mYCapmctgIEgBWmaKfb5+zx/P
/L7P7znLc57zbKe+dVFzW7koimNLRVHhOyEWRR/wQJhPU1Eshb+Y/2ugFvjX
oWk1RTEZ+hqyHvCvITvEnN7gf/FvFbgV+VvwsVoUM1hrOhTAjyNvRr6htiiu
CUUxBf4A82dCU8HjNAd5LTQevBrajoLboE3I74dfx9gm6AHwvdAOZOfDL2a9
K6Ah4KHQNPB+5qxkrYPSH7yLf7eAV0B/Bl/Cv33g96CH4SfBzy6sUxv8RfDv
FraJbPMb/jXCr+d8B9i7GX4Q/PHoMAT+VOgD2QIaAB6NvCfyemgs+GJs8Chn
/yV0CXgH/25A9k1oKXgPc/Yw9xFoJPsNgb6NbDX77Ue2GBqM7Fb2WwLuyxqd
WKsn//Yyvwo/q2KbJ3BvaKPsxfgGYcbUwW9m/MvMvz1aV+ncF74HY3YzdxNj
SshOTr7bw+x/CFxCfhnyJqhG98l68/J6a8ETmdMZfrxsCh7GnA/BR6CzwaOi
/eVV6HXGN+kfuj0F3Q1+lH8ja3wHuoun4ZcWtvHl4BH8+y579WHMK4xvSz77
9cy/Gty/atvIRtdqbag9+GT+jU7WWbo3QxXwbNY7k7UfYswn4HeSfVc+fBr4
jWTZVsZ8iLxJd4a9Z/HvUvB9yB+Df4H1NyN/CP7lsu/3QuSDtCd8GRoIvi5a
lwZobLLPyHeOk87gdsyZXzE/Av7t5FiTTtJtU7b3fGgD+OfQK4VtItvMifZ9
xcAH4HnQf8EdWe8M5v89+SzPQG+C1ybrrhhSLJXZ/6PCd6y7boa21frMOvuT
wXtLh8HBPqyzKj4fZH4j+3VH1g06IzpmJZNNHk62uWwvneYiO4V/R9B9CfKF
4Cuiz14PjYTvBD8D+ZvwW8E72fN7hWP4RfD5OV/1g34WrYP2051cxF6fMWYm
/DRoGHiV7rtk/1AszQn2n17Qbch+opxW8j/JfhgtEy9f25P9TzZ/J3pOrxzv
iiXllBU5X9wJvx/+LvhT4e/W3SieS15Da62AuoLroO+Du+g+wLugE8DPMn97
lt+C/J5o3Ruhe8H9gs+u/e6Afy85Vyxnz73gEcH3oTXawTdkeyvef8z4H0Wf
TWdeCf5pzgc6k85+D+M3cl9boG66a/6NKTtmJyL7Av9uQHYd1AFcz36j2W+U
fAR5x6plS6Bjq9ZRuiqnXgCeGzxWc+aBj6s6Fy6Tj8L3Vszn9TT2vmh+ONSd
9b/M+M0V6/glcDf+7c32uV/5A7pcsQptBD+T+SnQFvA3gmuHaswa5i7h3zEl
r/kk+InouZqjuZqjuVsZvyo5Zyl3tfDvt8h2ROcGxctz4HJw/pUPb9N+eb7W
k263QgOZPwD6KmvdFe0r8pl9zO2afBadqRX+LeQvFvaht6NjWLGsmqzarJql
2qV6d5nyFXxNyXeku6ok52rVgEZkNyoGc31qVT2LroWaf2n0GsKqoZOjSbjM
fnvBX2TNlqz/eaz3RrDvqp6vC85xynWd+Xcu+CbmnFByfbkZ/O/cL6yGpjL+
W9FjjyJfAD4xeT3FRCfw9fzrUHJOXwb+DFqf6+XRaB+Uv6l/WAhfCt5Ley6H
b4uWqcdYDG6fHFuKj33JMSZeMfmD6J5EZ5EO0qVvru+KIeWuMcnraU/5+v+i
64VqSl2wD+r+lHMeUC6Ozr8ao7FTmH9B2T2Weq192f4TsO9ryTV0fLa/epl/
ZPvr30LWPx3qAj6N8X9l/AHkd5Q8RmMPR9tWNj4EHp7rzef1VHxwbVaNngX/
SXLvpxz2UnDNUu1Sj9SEfDp0qHCPoV7jquh6oXzeJ7rGqNZoTGt0jpdMY1Rb
GpPzu3SohZ8WXd9Vs85KzvnK/fLZa5Cl5H5rMFRN7hnVOyq/q/Z2Zo2VFftE
p6p7HvU+OtMM+W6wryimFdu7lLOwFbD4OPrOdffPy17JPn8w93/qTZ9j/ncK
92B/CO6ZFD+qfy+BtwTrrjOoV/kF1AZeBP0q+A51l+qJ1BsdhH6X72s3snNU
MwrXE9Xy95N7S505SrfgXK4eUb3iFOg/2Z6yfcdk3ZXjVXsfDPZX9U9fB/8l
uVfapX43uSdXL6E1Tgc/wpg5uZ94AjyYNf5UOMd0h18frF87qGewj0l3neFV
1ZLk3lA93bmqncFj20O9wMuCfVs1YxJjT6way+e7gB8L1lU6SJfpwbaTDd9V
rsj5XffXteo3yBpkq5TfwN2C71J3uhN+aMp3X/Hb45/B46XDjcE5VrlKOetK
8KLgWNL9LFAtyHLl5Ang+RoD7sF6H4E/TsaqQXuCc6ByoXpW9a4zc73SnKuS
a6Bql/5JNjW5F98AfxT+mKrfRur51PstSO6FlF/mgmcH1zrNVy3ckPsv3Yl8
p67q2icbyVZn5vuTv+rt8Pvgu9d9DoM/K/f/6s/OCa7pqu2q593B/YNtcTz0
FfCv833IvoqdicG5Tf2l3lp/DM7VihHFyuTgWJX/tshXo8dqjnrtXlX3cqqJ
epvszPGoPc5mfDnaNp+/P7Re7rfVg04Cb0e+udZvyMPIrw5+C05UPVH9CMZr
oZtCPmPh+BgKbgj2TeXI96N7ROUSvcn0NmvJ8a8crFy8O/v70/CDVJuCff1v
0DidLbh26o03JviNJ141dRz4+eC70J0otvpFr6Wa3T+ahFUTGsDPQo8Xto96
hwHBd6EcfCGysdFvJ+kgXVTzVPv0ZqxD19HRukmut/lJwW8jvRFP4XzDo3ON
/EexrTeebK09K+CTqu6V1TPXq7cLtuU66EiwDtJFb5oX5AvBvqXzyfeujK4t
yofK7erh1MspRytXLw+OXcWkYrM5v/+UE5Qbbs766A1aA74292PK4aMUn1X3
Xuqhnop+Y+h+5dMdWOvTbA/1BGPA/wePTQAo
           "]]}]}, {
        EdgeForm[], 
        GrayLevel[0., 0.7628232052924578], 
        GraphicsGroupBox[{
          PolygonBox[CompressedData["
1:eJxFmAu4llMWx9/vO+fb7/u5RUgqTW41dKXQjZIKIZVT6iAjUekq5Fo6nphG
NMTMMEONVNMYNC6DwbiPPCOGkGk0uYbKJbeQ2/x//qvH85x91vrW3u/ea6+9
Lv+99xw1ecikcpZlTfWvRrR/bZYVlSzbXvwJpSwbqlandleeZfWij4sWKcvE
Zt+JHq5W1Y9zJD+hyLI+mudB8VMkG6l2itpnGnO0xl8ieoP6Zot/WfyN4i8X
PyD3Ws+Xvd7AapY9LB2WFl5HKmWL1LdIsuESLBX9WN8PkXyG6MKK+25RKyev
+5Tm3EPzPKaPb9Y8kySbip5qe0q+SvJWorUad6/mKYnWqO2m/gbRuWoXac3r
c++ZvZ8reozaOo3/neg8Gew68f9RXxv9fkp8O9FxalvEj5AuvxW/j/p/I3o7
tpL8MPFHSjZD+t6vNY6S8HvRVZI/pv5H1aapv5/oM2r/inmZv63oJvWt0dpr
9XuYfn8sOkR0uNpG8ZO0zm6F5fWS7azfa8T3E79X4e/7iB8a4/mueeEx34t/
P+T0/yl5f2vRXXp+KvkpknfX+GbS+WTx/1bfrpIfJ/4sjZ2gNk5tstrYis/j
idx+dJ9oO41t0LftRY9GJn6AaN+KeeR3hI1uF51Y8vkx78yyv2+LHfW7p9qh
ar/W72NFjymZHo8flTz/kbHGL8v+nm+b1Hosv7/TXt7j+9x+pu1kg6TLvMzn
2xsf1N7r9E1N1Q2+VHWDL4uep3mu0vdTC8fRWPFXRExBLw8dB4ae6Hx1yBpi
X+hzDWtKNjfshF2wyf5q3SX/eVB+s3fmJ15Z7wbR3+OfQfl9o9rO0m+uxj2R
7Df47vVq8zPHUV3207zdsKlsMUa//5psY2T0XVFjfq3aQo3pInpzbnuzD/az
ndZ5veTzwR7tRTuVPBbbdwidWlXc3zPmZi9Tw4YLNOdNNI3bKB16JO/3B9GD
JV+hsY3wQenzOPZT64ovaswhxCAxr3lOR//M41qo7Rh2wl5jYsz4wue+uOx8
wxkcE+fUED4D/77m2kU67y9bts4dp3vlXoN5xmqedeL30f63iD9T34zhrDXu
S9Gjau0D+B6++F7JduoZtlqkubqK7qFv9y+cN8gfrSNmid122BOf1TxHxu/+
okdo3Ofa32fipxTOXZNE68u26wjRaVp3b9HWZZ97N9GuZfshvnaV2pzge8eZ
94yzJraJ8Y7a37eywSWSXVyyX88O3yZnXaB2Xsn9M2LMuLJtju3JBVMiN8yL
HEYumxK5mRz9vvSeL9kG0WPVfibZANEDy+YvzsxDu8Ye2AuyOo0bJPmFyee5
RXueL9pE8tX6tqnocLUBkp0o+r3GDRJfX3j9KVGz+ufOh+TOeZHjyQWzpdfu
meOgLmyILamZF4VfnZl8dtflPgPk1JML1bZHf9HNGveN2ufEXdSLcSHfEn3l
yC1jctcP5mTuOeJbiv+V6PjcvjBdtKLxIzX+YK3ZQ79fpHZo/A6F46WLZJ/E
Wp+Kjs69/mEasz5svp3oDMmXURMlH6Xfo6T/pbnrIvVxZuxj25LtiA8SOA0i
U9WXyNe56zF1mXrdr7DfXSB5n8J+eLhox8Kx0UG0l9oE6b+t9pFiL7loz6g1
PQrHy9rwy/bhy+z/O/3eXHJt7oqvkNeSz5yz4wwba2znzH2dIucfIDpROtVq
zA5aa8eq+cHJ87Iv9vfP3L4LvsCnv5ZsQ8V1qyHyw4Gaa7Rs+LboQaEDuvQu
bJOR1NbQdV3E2zba4w1l75P9dtPYy0R7lW2jZ5Ptulz0GbXp4p+GFs65FxXO
peRMcix+QYw042yS555VuMFfxr5FV1Zco9EBOXn7HPKO5O2ky4Ocs2SXZt7/
AzW23QR8QnSp6N6BZ8A1iwvjt0Wiy5JrBzVkROATcErL5PkOEn9ebv/5SLLH
1aZJ/ojoQ2rdxf9ddBjYBByi9jL+Ix1WiQ6kZoI3MuMn+qnv5DjyeH3k8kUh
mx95HdnM5LidntxP3mX8ghg3NbDGguA7ZtajU+a5vq11TmFt8ga6nJ2MX+/R
nm6LvH+3+E8lHyz+6YiJzuGD6/X7Wv0+Mbf+6L4VD86sGAP2yFy3sAVzMecf
NfethddizamBqxcWxgfMg73uk3y06F+i9lH35uib8eJPy9yHD4CnXhX9MDfG
bAPWK3v/5MJ3pMsbFWO6zaI/qG+6+DuS8SE48U2tXZV8k/gPCp/jo/QXrsXU
5LHJGGpMcoNvnYx5mZN60VLjN4reqvGjkmtji8I1ldq6p2QvFP7mucL2mRY2
elq6vSn5GbEf9oD+DxauQas157O5eWQPlezPxNWyknEQdkGGryN/QfzyiCNy
z5Qa52borSXzX2jOYdSwwjFP7L8l+gY1Rvzroqfl5tcUPifOa0nhsxoa/s05
oDO6v1o4dnqRb+OOMyUZ44BhiEvOE74hauiauIecoW8WSvZl3E3Ie8Qq+Zv9
sBfGbopaxr7nxd7nxLzM+aJ00F+2R3L/qPAb7mPcywYp6JfU2veJgZsK348G
i46M+D0hGQeS38AU5O3tggf7gIFmRqwSg4eWfsIfW3MiNMVv8Dg88dg+YrIU
d7e9pM8nWnuD5thHtK8GtsD3RA8NvnuyL+PT/wuKX5MDofSNF30+N31C87TR
vJu0dmvRd2q9Z3LHIVtxZjLmAiuB2U/U7y7kq+Q5JsTc3JHwoVNFeybbFhsv
j9y+Inl+7Lkkcj81gHv1rFrz1IKltcYb6ADGJF7Ai3yzNHRrHziPuthUet8t
fre475K7tuLAWTEnsfNyxb6HfcmJ3Lc5n6a13lf/5LtBv2Ts3i7OYHicA3yH
oB0jv5Pnn4vxbeObTjGOMe/WuF5TC1mH9Yj5rwrfWc4qjAPAA9tUrePK0PM4
/T5dY/9cOBezL/xgP8kbibZKvjNRl6nP+A4+hJ8xdlWM51vup2DRxVErkFFL
uZtgW/A+96ibotaQo4lb8jQ8eRs8CC78G5hEazdhv8m4Gp+mtoIdWIt1wcE7
UQvC3uh3WPRvCd36Zr7794u83jewxrkV1yZy9OiIS+LzANn8ZvLI1hpesb2h
HcL2X1Wcx8nhYDswXlnfHa1vmkp2de58zJitGB6sz3dgnQ8idgbF+8zxooPV
VogfIjoseGRzI5avilrzamCOfbXuNsSs6L3x7kNN2zHsMS7yO3med5H+cWfi
7kQcY+tmat0ironvlRq/VPM8nGxHzppcg/5fxX7Zxxexl12SfXynZLxPnccH
ZgSuuzhiF73JD32l5534qujiuKNxV6tPzrebxf8i99tIIZ3XJOeEw3OfB+fy
EXUt8HYXyU4Nm2P78cnnPTkZz4HrGgq/kXG3Win6rr69UvJTkt8pwK4Dc9d4
/OBO0SMCY4O1b0vGmoMYG9gejJ/HnfnDwu9E1PE6ziEwyWuSPxbvXeT1HQIP
g4vrA8uB6Zbo23Hi7xF9JN52fnzjibcjMMKGmJO5/5H7nW5A1fmIvDRE8zeq
Oh/1FX9w8tnWFsZGfLtRtHfu+9Y6yV9LjoNLCmMIsMQZye8U1M27Rd/W+Flg
7Nw+iq/yprg6MMDroi+Rm8gdhfMa+a2PaON4J+G9ZGLcwfcTbRlvibwpNlF7
QHxz0f+qr4t0Ww3mT8ZY9yefMWc9VmudHDWR2lhXdc4dWvW9jvsdb0tFvK3x
xtYl3jd453gh+Y79YvJ9lfvW+ZJ3DtwF/to97NlMtHHhM+L9r3XUr32rftfj
PvsDPpgbw5wpepJac2qwxg8Ov+JudHZgVu4u3wauAF+0iL1jg/3CPrxVnFR1
flghfn3yneQPGl8tjFkK0UsDz/B2y/spd6C24l8KbP9KYTy2NrDJ7Nz3nStz
59ZmEf/gaLAaOO78uBNxN7omd66+ljtu7pxAbvgm+K9z54TpEevzctegNoXz
HW8X5B3eHMnry3K/34C9wZa3FH7LOTf5DDiLEdztkvNyj6rv5NzBnpLsqOTa
vKvkr+TO2y/lrqnkR+rDxMg14IVJgQMnRE7iPjI5KHUBntyA/3Pf3Bz5jLwG
jpiZ2SbNk/fLvrE9MvrAHeQQ7mwLCscssXt/3MW4k20f8dgo3qSxFTXhrdzY
8E18Ju5r3Ns2RpwS6xOT69V7ufEk44lD1pwTPH2M+SB3ruHb9RGv1dBvXfzu
lhv3sgfwxOqItc5a58niJ7y2rfhW6u+VjHHB7ZwBGI044h3klfCxu5KxNbmC
eyrvocT7Tlr8ydxvP41z43VwO1h+ee7zf0b0/3wQB98=
           "]], 
          PolygonBox[CompressedData["
1:eJwtmHn811MWxj/f33Lv/UZDTYVQ0mZaqRhthJTK0i7SqmgnYlJSsr4sY5vX
azDEWBIzakq2YjRjT0OijBlKkZqIFCHKPO/Xc/843+9z77nrueee89xPo9EX
9Z9SURTF5aWiqNL/wlAUY/Q/WjJJeLCkvfBy6c8UHijpQHvJUOGRki65/GXS
T7koTtNA36t9W5Wfi0XxtiZYpbqG0h0pWapm61RuLHyT9LNUnimZG9yGtqeq
zyD1/3vw2J0lI4T7q26J9CskDdT2BNV9K91OyUiN1Vl106qLYormX6NyhWSR
dH013j617Ss5Q+XTWTNrV/s5at9T7Z9U2x4av1WF93yxyi2kryP9fSpvU/tH
kvfTS+VdKs8IXi91j0r3lOR9tX9NMlB9u6t8ufStpb9I4y2XDNFc50pWCD8j
GSg8SPK0cK3gc1CxSME2wBYnS16SfiZ7KFz3PLaT7FW5mcqnqO2R0tegr6R+
cJtTs/1Z67LosagbrEaD8nm2k5wlfL/0HTR5G5UfFO6XvFb6DBCuX7b991Pd
s9LXVN3rwkeo/X7CZ0u/pto2wBYtk33hOunvUfsm0n+m/gNVnqP51kk+FF6v
NpXBczJ3K/X/XOU6an+f2v9eUlt4hvS9K1yHrpWkhdq2Vv9pmqut+tRV/4PY
k/AwyU0l26OLcGu1r6e+t6vcRnis6roJd5WMEv5M8kdhLsV4dZoruVtY1UVV
8B3gLiyTlKVbJLlQeKzkb8KXan1l4ec0x2Fln0G+FkVj4Qekv0XjHa82jwr/
ImWPKt8ZGi1QXbeSbYJtHlP55sJ16BZF+2ov5sMW6vOQ9t9P5Xkaa5X6XF3Y
gSZJf0X2l/6S2cE2wTb1JK2Fv2FPhc+EszlQY7yj8rzKotjC2UkOlm4LZ5x8
B7mLnSTnCe9W3fVqe4jKa9HhI9rfbpXP1/xfqfxKpcfbKlwteVpj3ajy58ID
gseaKnlReFtyW9bwhXCtss/+eI15hsr7JF2qfD4XCq+TNFP7C9X+A+FOGuMw
fF9ynPApwWujrrtwT0kL4aMkPYJ9AF+4TdJW+MfkszlCNm2p8ua8P/zzEOH9
8/rY05vqf2Kw7zN+R+GN2vPVavsPSY3kPbJXxugWPSZj36P2Y9R+e/D+8Ocr
pZ+g8lvSvSIZItwLm5Rs/9HC16tNfeGDJdcKVyXvFZsG4R9Vt0D4VdX9hrsv
+aiwP21U/97Rd/FGyd3C61X3b/xNUo+7rvV9ovV9LBkiPF76vdJtVfta0n/N
njhLyQ7hq4J9ax7xn/ujuiulW6U+v0q2EbYixt+o+V4LxtThG4zBWMz/uHTf
qdyxZHvhW0vZk876KtW9pf47k88Ln8Q3FwefP3My90JJn8J3kru5RLJR/Yep
/LL694peP3tib3/lzpasf1L4KO05VftOcjenB8dn7tdO4dPUf6LGH4/Ng30W
38XmhwpfJOlOfJZMFj5BYxyq+YdrvGqN/bbq5hS+o2/hq5IDhWtyXsKL83rJ
HwOIbao7ANvjs8ECpg99WwXfZeacKHxNtG+Q864SvkN100vO741UPi55LZMk
JwrXKBtTF8idwfYjR5IrZwXHas746uAcRa4i35HbybHk2smSVcKts39wR7mr
rwbnds78d8JPqc2Akm2Kbd9U+QLh8yWXBedkcjP59RLhu8gZJcfk24SvDNbR
Zofwxdn/iHHkxmOy/bHJ0cJ/UJ8ZFT5TzpYxGOteye3CG9TmzsI5YJzwBOJ9
4Tbkgv7BuZEcCfdZls+bmLVc+Nlgf4AzPYPtNMcj1Y7JL2r853N8gyM9F5zT
yG3krEuT11gv56sOwi9kfsAYjHV4zh/k9IbBOZr1wE/gZtw57h7x8WX00Xd1
s6SP8D/VeWLJd5q7jY2x9SqVB6vcTm1WFo45xJ6XMt9iv2cLn5Tz0bc601Ow
v8brrfJZklnCp5Ozqr1muM05yfkZfnB5dMxgPatVriPcLcdLOMMN0o9U3Tlq
31XlUcJHlM0NqUP3S47Xo1Ueo/L5yZgYSCycHs19GsORkjkWXAsO1zOZE8AN
yLmXCU+Q/ieNt4f7JDxcEqSvLf1vpb9O5YNKnoO5yGHkMjjmGLDkIekHyx5f
w4/gayWPMVXls9TnxApzgJOk+z63fxgbwm1UNw5uIbkg+cw4O3IAuWAmnKpk
G8J1yAnkBspDkjkz9mGNleTXYFvT5wqVp0XzNc4DX7pF0lC4geRmclPy2d2q
/SxUeVz03rAJtmkreSPHk6OFtwTfFfLV/4S/CObC1KHDBthijKQd9k++b8Qs
YtfGzO/woY+Ccyy5to/KH6vcKDiXEy+OUt9NyWMx5sfCZ5IPpF8AR0rOmayF
O/qDypOS7yoxYrJwE+nXF855PbS2TzO/u0vySTCn5+5wXpdEx1xiL2tm7VOy
P3Cmk4X313rnau5rJX2TcwS5ghhNrF6b+QV84luV2+T7hA2x5aZgbskaWEtH
1V1bMkfYFG1jbN1B+/2P+v9LbWYXzhHkimHRbxvOaHQ0p4PbwfknCvdJvguc
8enJHAl/IuYSe0PmWwslSyGx6rO60v49OpmjwFWYswF3M+cb7HFx8p2jLf42
Vnh98tng0z+TC5PPjzPgLH7JfIMzIHDtjL5r3KFd0W8O3h7E64HwjeS3Gflm
aDKHHpvtS+5+F85T+M5wd9YEcxfqVgu/Ed2eHEIugRPDjYlR/w3m7Gwbel0n
2Ifwpfn4k8p1k2MTMeoJ5oLfaa4HJGs11rC8PvLpcOGeqhtVOObDBTZEc5NZ
xFhyVTJf48ybJscUYgsx+1jhQWXndtb8utrPT85n5NPHhCuSz2qRpMR9hyPl
8fClk6PL2Bdffzw5nrP/J5L70Jc1stYzucOF90du6JvzA3X9hD/jfVHyG+lz
3pLBb09sgC1WcGcqzek7JXPg9fl9Uj+ZI8IVv5QMFW6uut0lcwC4wIPJa4NT
/Fn415nvoYeLsWf2DidYGv2G6Zf5wQPc/cxX4FBdsWfw2+BdSWe1HxG9NvRD
hftLvs75hrM9LJk73yD9VOENrDnHl+/U9oBkrsqYvH0aSb4o+Qzh3g9Hl5to
DZuDYxSxivXDhe9P/hbBm/gQ7X+l2m+rNmeFu7ZJfv9ikzuj7xB3iRjeSO0r
83lx5t2j36CcNfM3ZK5obgvHfT/5DbYlr+8b7nrw24OcSm49PPn9wprZC29q
zmuDZH40Z4W7Mh++RkwkNuJT+BocHC4OJ4Ib/cwequwve5PP/MMcXw8V3pNs
G+bk7fRTbs8b/J3gO9A1j98smQPBhfA5fI8YgS9jA2yxN3ptxCzeinNVblfh
HEAu4Aw5y5b4E+/f5NhHG9ryjYRvFeTAxeDg2EyM5i0IJyFfcl4Hlx2z0fPm
4O1BDCIW4a/nCd+a+TQxlljbKvs3Z8q3DXICuYFvPDXL5jRwG2IssfakZG4C
J4AbtAzmZozBWHXLjkXEGGJNSv62UF/9YzJnwpfx6drCnaL9FZ/AN8ih5FK+
afBt447o3Mw3q63Bb0TWj8/BbV4J5gKskW83czM/x4ZwhaaSFYW/ifFt7ITo
bxfkrE+jfQhf4psE3yYWBH8r5A35WLDNsN0Orae5Os6Ozh9wON7eOzK/55sD
3x5qR+fT4ZJXhY/kDAuvgbUsCX7b4//vJd+Jbdm/Gwi3jn7r8v7aw/6ix+Ib
YxV7T/ZnYg6xhzc1b2v60HdlcCzBpth2QI7PH2jNf1H7P0XzjaOlnyd8TPJd
wMfxdWI+sX+f2q9WuX00l4YDwAWaB2P4e1PhVcmxkhhBrGgRvR760BeOXyP3
h5u3D+YGcATeNk3Lti025q0Lh4PL8Y2qt/Tbk32HO8a3WXI+94k7P5/3QvTb
lPG3k0s43wrn6G+E10XvhTcjb0dsgC14I/NWfi86N/KNNQTHZGIvMbhL8huT
tyZn2Cz6TcjbkDfIy8mcjthLDB4l3QvBZ8ebirfVV6q7v2SbYBs4A9wB/vxD
9BuBtwL+1Dn4GwdnSfvmwi2zPRnjmOicTe7mDowQ3pX8luEbAt8S5kTfDfS8
nYkpxBa+gT4UfeacPW+Ie6PXwFrgP+dq/gtymRxJrjwn2JbYtL3GfyrHW/jC
scL/ByWj2oY=
           "]]}]}, {
        EdgeForm[], 
        GrayLevel[0., 0.6916960989166497], 
        GraphicsGroupBox[{
          PolygonBox[CompressedData["
1:eJwtkb1OAlEQhUeIe3cfwcLEFeQl8AGMdFQEOh5AaxMN2lAasOMdUCmksNAC
SPAHozGBxgRtacESE7/JTDE5c8+ee+bM3bR+XD7KiEieylIfsUhjQ+QniFQT
kfmmyACuTy0Q3oOHkcgV/Q2ammsq4JhvS/gReOf6FzRvwXr1GLnmHW6PemTm
LviF5wFze/RNNF34v8jOyt8G81KfCd/3E7urHm10D/SzYJk02wWaoc+awHVi
8zkBC8H0KfjMeYXmKbaddfdvcMs1l3jnPOc2uI4s2y+44xrVpt5rls9gc4uJ
zdZeuWmwu7pfyffVXOexZW6A1z5L93v1ffUtK/7O+k/OOLfgT8F/fO9HRQ==

           "]], 
          PolygonBox[CompressedData["
1:eJwtj72OgVEQhod8vnO+krCdAolLEaLbTnQugHoTUfhpxW1IiJ7YYjU28VPQ
INFr1w3sM5lTPMm8Z96Z806p0/vspkXkAyKYeJExDGEU0DqKRTKQgyx4SODk
RN4s+IMdvr03/cyItBKRPnqGrqdEHvh/vPXUo7MH9Cv42/jLvH2TYwtV6g39
Ndyo77CAWso8S+oCO/Mhk2Y7O8ui+3+ZO8ER6uxuJHZDFGZ0thj+051zZ5k1
i2Y6oqexZVFPBb1ydov6NcuXN603Drzt0J6+NZm9oi8QUzv4B4gwMSI=
           "]], 
          
          PolygonBox[{{1780, 172, 2005, 2003, 2004}, {1545, 1544, 1789, 172, 
           1788}, {1543, 1542, 2363, 754, 2247}, {2174, 656, 2173, 2170, 
           2171}, {2007, 383, 2256, 2253, 2254}, {2233, 745, 1995, 2234, 
           2235}, {2171, 2170, 2177, 658, 2176}, {2377, 2376, 2006, 189, 
           1824}, {2010, 2009, 2015, 383, 2007}, {2175, 658, 1610, 2180, 
           2181}}]}]}, {
        EdgeForm[], 
        GrayLevel[0., 0.6205689925408416], 
        GraphicsGroupBox[{
          
          PolygonBox[{{2375, 1432, 2372}, {2393, 748, 2248}, {1788, 2, 
           1545}, {1997, 748, 2393}, {2181, 665, 2175}, {1545, 2, 1554}, {
           2240, 748, 2237}, {1667, 655, 2166}, {2171, 655, 2174}, {1557, 5, 
           1541}, {1824, 1432, 2377}, {1541, 5, 2179}, {1784, 169, 1800}, {
           2235, 746, 2233}, {1672, 655, 1667}, {2357, 665, 1751}, {1800, 169,
            1808}, {2012, 746, 2236}, {2004, 169, 1780}, {2176, 655, 2171}, {
           2247, 169, 1543}, {1549, 2, 1781}, {1543, 169, 2004}, {2174, 655, 
           2169}}], 
          
          PolygonBox[{{2245, 2244, 1999, 2000}, {1781, 2, 169, 1784}, {2011, 
           2010, 2007, 2008}, {1554, 2, 5, 1557}, {1751, 665, 5, 1558}, {2179,
            5, 665, 2181}, {1558, 5, 2, 1549}, {1828, 1827, 1821, 1822}, {
           1679, 1678, 1827, 1828}, {1780, 169, 2, 1788}, {2008, 2007, 2254, 
           2255}, {1962, 1961, 1611, 1612}, {1822, 1821, 1961, 1962}, {2175, 
           665, 655, 2176}, {1818, 1817, 1678, 1679}, {1612, 1611, 2201, 
           2202}, {2166, 655, 665, 2357}, {2000, 1999, 2249, 2250}}], 
          
          PolygonBox[{{2237, 748, 1997, 2229, 2230}, {2255, 2254, 2377, 1432, 
           2375}, {2372, 1432, 1824, 1817, 1818}, {2236, 746, 2235, 2010, 
           2011}, {1808, 169, 2247, 2244, 2245}, {2250, 2249, 2248, 748, 
           2240}, {2230, 2229, 2233, 746, 2012}, {2202, 2201, 2169, 655, 
           1672}}]}]}, {
        EdgeForm[], 
        GrayLevel[0., 0.5494418861650335], 
        GraphicsGroupBox[{
          
          PolygonBox[{{1811, 188, 1816}, {1693, 188, 1811}, {2375, 93, 
           2255}, {2008, 93, 2011}, {1828, 188, 1679}, {1682, 93, 1546}, {
           2255, 93, 2008}, {2011, 93, 2236}, {1546, 93, 2195}}], 
          PolygonBox[CompressedData["
1:eJwt0DEOAVEQgOGJiH1bEJqVkBCH4AR0NI7gAHQcwBZcgRvQ28rGFhQ0VBQc
g9D5J2+KL5nMm5k377VGk+E4JyIR8igVRIp444MB+lg5kTW2gcgm8Dk9y8gd
sEfqfI/2fvEzGjt6QjyI74hQRZNcw2bq7CW5BeaIrSaynXS3E3cccaX2ZjQ+
k7ugQlwOfI3WxjZrSjwzGrdDkU7od3LWo72a0zPdUXdN7W07JHbH2d6c2Z/o
3+jOuntitU9mvdBjVhc14jr+6fkydw==
           "]], 
          PolygonBox[{{2013, 2012, 2236, 93, 1682}, {1816, 188, 1828, 1822, 
           1823}, {1819, 1818, 1679, 188, 1693}, {2195, 93, 2375, 2372, 
           2373}}]}]}, {
        EdgeForm[], 
        GrayLevel[0., 0.4783147797892254], 
        GraphicsGroupBox[{
          
          PolygonBox[{{2197, 689, 2353}, {1613, 187, 1963}, {1674, 91, 
           1689}, {1689, 91, 1680}, {1963, 187, 1823}, {2241, 91, 2251}, {
           2246, 185, 1809}, {1673, 689, 2203}, {1823, 187, 1816}, {2251, 91, 
           2001}}], 
          PolygonBox[CompressedData["
1:eJwt0D0OAUEUwPEXkd3ZFatASGhcghPQabQ6B6DkABSUu1Sy7qBCJHR6HQXH
ILbyf5kpfsl8vI950xpNBuOciFSRR90TqSFCCQvMMTUiM3xZf/BDhh1SlH2R
CrbE7Cl4plaf8zX7BN1ApOfoukFsE09iHq6n9r4Se8EBR2NjNDZ1vTLXO+As
xNLYXtpz43I098XdG3cMuT/hZuxMkZtBZ0kQI0TB0bW+Wd9e9G2u1lh5tqbW
jl1uh1nagZ1BZ9E/0r/SM737Awk0LVo=
           "]], 
          
          PolygonBox[{{2353, 689, 1673, 1668, 1669}, {1812, 1811, 1816, 187, 
           2185}, {1802, 1801, 1809, 185, 1805}, {1680, 91, 2241, 2238, 
           2239}}]}]}, {
        EdgeForm[], 
        GrayLevel[0., 0.4071876734134173], 
        GraphicsGroupBox[{
          
          PolygonBox[{{1651, 170, 1798}, {2361, 1372, 2360}, {2239, 92, 
           1680}, {2232, 92, 2239}, {2194, 683, 2191}, {1820, 683, 2374}, {
           2374, 683, 2196}, {2014, 92, 2232}, {1786, 170, 1783}, {1694, 683, 
           1820}, {1683, 92, 2014}, {2359, 1372, 2168}, {1684, 92, 1677}}], 
          
          PolygonBox[{{1813, 1812, 2185, 2186}, {2198, 2197, 2353, 2354}, {
           2354, 2353, 1669, 1670}, {1806, 1805, 1674, 1675}, {1754, 1753, 
           1560, 1561}, {2186, 2185, 2197, 2198}, {1803, 1802, 1805, 1806}, {
           1561, 1560, 1551, 1552}, {1675, 1674, 1689, 1690}}], 
          
          PolygonBox[{{1548, 1547, 2196, 683, 2194}, {1552, 1551, 1783, 170, 
           1651}, {1798, 170, 1786, 1802, 1803}, {1677, 92, 1683, 1547, 
           1548}, {1670, 1669, 2168, 1372, 2361}, {1690, 1689, 1680, 92, 
           1684}, {2191, 683, 1694, 1812, 1813}, {2360, 1372, 2359, 1753, 
           1754}}]}]}, {
        EdgeForm[], 
        GrayLevel[0., 0.3360605670376093], 
        GraphicsGroupBox[{
          
          PolygonBox[{{1754, 3, 2360}, {1548, 95, 1677}, {1698, 95, 1695}, {
           2194, 95, 1548}, {1552, 3, 1561}, {1651, 3, 1552}, {2367, 3, 
           1797}, {1561, 3, 1754}, {1695, 95, 2183}, {2356, 3, 2367}}], 
          
          PolygonBox[{{2187, 2186, 2198, 2199}, {2192, 2191, 1813, 1814}, {
           1691, 1690, 1684, 1685}, {2355, 2354, 1670, 1671}, {1671, 1670, 
           2361, 2362}, {1799, 1798, 1803, 1804}, {1814, 1813, 2186, 2187}, {
           2199, 2198, 2354, 2355}, {1804, 1803, 1806, 1807}, {1807, 1806, 
           1675, 1676}, {1676, 1675, 1690, 1691}}], 
          
          PolygonBox[{{2362, 2361, 2360, 3, 2356}, {2183, 95, 2194, 2191, 
           2192}, {1685, 1684, 1677, 95, 1698}, {1797, 3, 1651, 1798, 
           1799}}]}]}, {
        EdgeForm[], 
        GrayLevel[0., 0.264933460661801], 
        GraphicsGroupBox[{
          
          PolygonBox[{{1687, 184, 1787}, {1807, 184, 1804}, {2352, 1370, 
           2189}, {1671, 1370, 2355}, {1676, 184, 1807}, {2189, 1370, 2365}, {
           1799, 184, 1797}, {2362, 1370, 1671}, {2370, 184, 1687}, {2356, 
           1370, 2362}, {1804, 184, 1799}}], 
          
          PolygonBox[{{2184, 2183, 2192, 2193}, {1699, 1698, 1695, 1696}, {
           1815, 1814, 2187, 2188}, {2188, 2187, 2199, 2200}, {2193, 2192, 
           1814, 1815}, {1692, 1691, 1685, 1686}, {1686, 1685, 1698, 1699}, {
           1696, 1695, 2183, 2184}}], 
          
          PolygonBox[{{2200, 2199, 2355, 1370, 2352}, {1787, 184, 1676, 1691, 
           1692}, {2368, 2367, 1797, 184, 2370}, {2365, 1370, 2356, 2367, 
           2368}}]}]}, {
        EdgeForm[], 
        GrayLevel[0., 0.1938063542859929], 
        GraphicsGroupBox[{
          
          PolygonBox[{{2200, 682, 2188}, {2352, 682, 2200}, {1686, 94, 
           1692}, {2188, 682, 1815}, {1692, 94, 1787}, {2193, 682, 2184}, {
           1699, 94, 1686}, {1815, 682, 2193}}], 
          
          PolygonBox[{{2190, 2189, 2365, 2366}, {2366, 2365, 2368, 2369}, {
           2371, 2370, 1687, 1688}, {2369, 2368, 2370, 2371}}], 
          
          PolygonBox[{{1688, 1687, 1787, 94, 1701}, {1700, 682, 2352, 2189, 
           2190}, {1701, 94, 1699, 1696, 1697}, {1697, 1696, 2184, 682, 
           1700}}]}]}, {
        EdgeForm[], 
        GrayLevel[0., 0.1], 
        GraphicsGroupBox[{
          
          PolygonBox[{{1701, 96, 1688}, {2190, 96, 1700}, {2369, 1420, 
           2366}, {2371, 1420, 2369}, {1700, 96, 1697}, {1697, 96, 1701}}], 
          
          PolygonBox[{{1688, 96, 1420, 2371}, {2366, 1420, 96, 
           2190}}]}]}}, {{}, 
       TagBox[
        TooltipBox[{
          Directive[
           GrayLevel[0], 
           Opacity[0.5], 
           CapForm["Butt"]], 
          LineBox[{2190, 1700, 1697, 1701, 1688, 2371, 2369, 2366, 2190}]}, 
         "0.9`"], Annotation[#, 0.9, "Tooltip"]& ], 
       TagBox[
        TooltipBox[{
          Directive[
           GrayLevel[0], 
           Opacity[0.5], 
           CapForm["Butt"]], 
          
          LineBox[{1699, 1686, 1692, 1787, 1687, 2370, 2368, 2365, 2189, 2352,
            2200, 2188, 1815, 2193, 2184, 1696, 1699}]}, "0.8`"], 
        Annotation[#, 0.8, "Tooltip"]& ], 
       TagBox[
        TooltipBox[{
          Directive[
           GrayLevel[0], 
           Opacity[0.5], 
           CapForm["Butt"]], 
          
          LineBox[{1698, 1685, 1691, 1676, 1807, 1804, 1799, 1797, 2367, 2356,
            2362, 1671, 2355, 2199, 2187, 1814, 2192, 2183, 1695, 1698}]}, 
         "0.7`"], Annotation[#, 0.7, "Tooltip"]& ], 
       TagBox[
        TooltipBox[{
          Directive[
           GrayLevel[0], 
           Opacity[0.5], 
           CapForm["Butt"]], 
          
          LineBox[{1552, 1561, 1754, 2360, 2361, 1670, 2354, 2198, 2186, 1813,
            2191, 2194, 1548, 1677, 1684, 1690, 1675, 1806, 1803, 1798, 1651, 
           1552}]}, "0.6`"], Annotation[#, 0.6, "Tooltip"]& ], 
       TagBox[
        TooltipBox[{
          Directive[
           GrayLevel[0], 
           Opacity[0.5], 
           CapForm["Butt"]], 
          
          LineBox[{1551, 1560, 1753, 2359, 2168, 1669, 2353, 2197, 2185, 1812,
            1694, 1820, 2374, 2196, 1547, 1683, 2014, 2232, 2239, 1680, 1689, 
           1674, 1805, 1802, 1786, 1783, 1551}]}, "0.5`"], 
        Annotation[#, 0.5, "Tooltip"]& ], 
       TagBox[
        TooltipBox[{
          Directive[
           GrayLevel[0], 
           Opacity[0.5], 
           CapForm["Butt"]], 
          
          LineBox[{1550, 1559, 1752, 2358, 2167, 1668, 1673, 2203, 1613, 1963,
            1823, 1816, 1811, 1693, 1819, 2373, 2195, 1546, 1682, 2013, 2231, 
           2238, 2241, 2251, 2001, 2246, 1809, 1801, 1785, 1782, 1550}]}, 
         "0.4`"], Annotation[#, 0.4, "Tooltip"]& ], 
       TagBox[
        TooltipBox[{
          Directive[
           GrayLevel[0], 
           Opacity[0.5], 
           CapForm["Butt"]], 
          
          LineBox[{1549, 1558, 1751, 2357, 2166, 1667, 1672, 2202, 1612, 1962,
            1822, 1828, 1679, 1818, 2372, 2375, 2255, 2008, 2011, 2236, 2012, 
           2230, 2237, 2240, 2250, 2000, 2245, 1808, 1800, 1784, 1781, 
           1549}]}, "0.3`"], Annotation[#, 0.3, "Tooltip"]& ], 
       TagBox[
        TooltipBox[{
          Directive[
           GrayLevel[0], 
           Opacity[0.5], 
           CapForm["Butt"]], 
          
          LineBox[{1557, 1541, 2179, 2181, 2175, 2176, 2171, 2174, 2169, 2201,
            1611, 1961, 1821, 1827, 1678, 1817, 1824, 2377, 2254, 2007, 2010, 
           2235, 2233, 2229, 1997, 2393, 2248, 2249, 1999, 2244, 2247, 1543, 
           2004, 1780, 1788, 1545, 1554, 1557}]}, "0.2`"], 
        Annotation[#, 0.2, "Tooltip"]& ], 
       TagBox[
        TooltipBox[{
          Directive[
           GrayLevel[0], 
           Opacity[0.5], 
           CapForm["Butt"]], 
          
          LineBox[{1556, 1540, 2178, 2180, 1610, 1966, 2177, 2170, 2173, 2172,
            1755, 1968, 1967, 1964, 1965, 2364, 1829, 1826, 1830, 1825, 1681, 
           2006, 2376, 2253, 2256, 2016, 2015, 2009, 2234, 1995, 2228, 1994, 
           2252, 2395, 2392, 2394, 2242, 1998, 2243, 1996, 2002, 2363, 1542, 
           2003, 2005, 2182, 1789, 1544, 1553, 1556}]}, "0.1`"], 
        Annotation[#, 0.1, "Tooltip"]& ], 
       TagBox[
        TooltipBox[{
          Directive[
           GrayLevel[0], 
           Opacity[0.5], 
           CapForm["Butt"]], 
          
          LineBox[{1588, 1584, 1585, 1587, 2265, 2266, 1840, 1839, 1838, 1843,
            1834, 2030, 2264, 1841, 1835, 1836, 1831, 1833, 2041, 2043, 1563, 
           1725, 1619, 1630, 1628, 1631, 1726, 1729, 1627, 1620, 1618, 2104, 
           2101, 2103, 1886, 2112, 1905, 1617, 2320, 2318, 1901, 1902, 1906, 
           1904, 2118, 2119, 1903, 2116, 2319, 2317, 2128, 2316}], 
          
          LineBox[{1747, 2300, 2301, 1868, 1870, 1871, 1867, 1943, 1579, 2092,
            2091, 1945, 1866, 1944, 1748, 1746, 1744, 1745, 1582, 2150}], 
          
          LineBox[{1770, 2346, 1768, 1937, 1936, 1935, 1939, 1638, 1941, 1942,
            2090, 2089, 2157, 2156, 2155, 2151, 2302, 2093, 2087, 1938, 2094, 
           2095, 2304, 2303, 2344, 1940, 1934, 2158, 2160, 1568, 2345}], 
          LineBox[{1946, 1950, 1947, 1769, 1767, 1771, 1948}], 
          
          LineBox[{1990, 1778, 1656, 1971, 1649, 2211, 1972, 2215, 2214, 2210,
            1650, 1654, 1616, 1652, 2209, 2208, 1970, 2218, 2217, 2381}], 
          LineBox[CompressedData["
1:eJwV0ktLVlEUBuAtiKam5v2WQko0MbpQmuYFCweCkn2JlcNmoekgyqwsaJTW
T6hpSolaSkJNxDQ1uwzSmgVpYuWlH9DE5wwe3rXXWudsvqMHrvTEuuNCCCMU
JYWQy36uJ4bQkBDCuT2SM9zSa5Rn6Vd30sVHe/Ms8ZlPnNQvkcl2f6pXqWKd
NeoYMS+jkFIOcohtsy02uObcQyflHOY4R2gx/yL/u+MYRzmv18pz/RznmLqd
y3SQp5dJNhlctdekn6XOJ5cfekMM08UoL3jNVPTbmOAZkyR4Jp4KdTW1VFFP
in4qs+oB9zziMQ+cB+VDFtV77fxhg32kR+8zO0Ga+hcv7a3Ir7xSj0d3mY9F
d8nv+t9Ypsa5mg9mp2WlrJSn2DT/y292eG+2QC9z0XeNvo3/gRl1lswkm9ue
vUMfO2Y35BSFZgU89VyxLCGmzpP53Iy+v3OvvCgvcVe97R3v2OIe/7hPH212
2nlj70L0d+UJ085vafbeXVswU3Q=
           "]], 
          
          LineBox[{2386, 2385, 2390, 1653, 1993, 1992, 1991, 2389, 2388, 2227,
            2391}], 
          
          LineBox[{2121, 1933, 2123, 2124, 2122, 1922, 2126, 2120, 1608, 2325,
            2141, 2142, 2143, 2121}], 
          
          LineBox[{1537, 1794, 1790, 2138, 2139, 2140, 2343, 2342, 2341, 2222,
            2223, 2224, 2226, 1987, 1810, 1989, 1538, 1988, 1796, 1793, 2338, 
           2339, 1795, 1921, 1920, 1923, 1918, 1537}], 
          
          LineBox[{1602, 1605, 1606, 1607, 1919, 2146, 1792, 1927, 1600, 1592,
            1604, 1603, 1602}], 
          
          LineBox[{1642, 1842, 1567, 1565, 2257, 1596, 1629, 2022, 2020, 1720,
            1721, 1723, 1722, 1724, 2258, 2042, 1837, 1624, 1642}], 
          
          LineBox[{1859, 1857, 1756, 1761, 1861, 1555, 1862, 1572, 1858, 2082,
            2086, 2085, 2084, 2289, 2080, 2295, 2290, 2291, 1859}], 
          LineBox[{1576, 1578, 2159, 1577, 1564, 1576}], 
          
          LineBox[{1893, 2044, 2270, 2037, 2271, 2272, 2268, 1889, 2269, 2274,
            2275, 2098, 2031, 2038, 1626, 2040, 2035, 2034, 2033, 2032, 2273, 
           2099, 1625, 1897, 1832, 1898, 1896, 2100, 1890, 1885, 2313, 2312, 
           1888, 1598, 1892, 1891, 2107, 2108, 2109, 2105, 2311, 2310, 2314, 
           2315, 2111, 2102, 2309, 2110, 1883, 1887, 1884, 2106, 1728, 1894, 
           2036, 2039, 1893}], 
          
          LineBox[{1621, 1615, 1622, 1614, 2057, 2056, 2055, 2285, 1632, 2284,
            1727, 1623, 1621}], 
          
          LineBox[{1648, 1659, 1977, 1658, 2213, 2212, 1779, 1660, 1776, 1777,
            2340, 1664, 1661, 1665, 1648}], 
          
          LineBox[{2163, 1766, 1952, 1949, 1954, 1953, 2161, 2076, 1634, 1609,
            2081, 2077, 1956, 1957, 1951, 2162, 2165, 2164, 2348, 2163}], 
          
          LineBox[{1764, 2154, 2296, 1636, 2347, 2297, 2298, 1765, 1955, 2078,
            2079, 1633, 1637, 1574, 1639, 1640, 1759, 1705, 2288, 2287, 2088, 
           1569, 2152, 1635, 2153, 1764}], 
          LineBox[{2025, 1879, 2027, 2026, 1875, 2267, 2025}], 
          
          LineBox[{1973, 1976, 2335, 2133, 1983, 1969, 1985, 1908, 1980, 2379,
            1981, 2378, 2206, 2207, 1982, 1986, 1974, 1973}], 
          LineBox[{1709, 1876, 1646, 1880, 1877, 2024, 1709}], 
          LineBox[{1864, 1717, 2050, 2049, 1863, 1864}], 
          LineBox[{1924, 1926, 2147, 1925, 1924}], 
          
          LineBox[{2277, 1856, 2278, 2053, 2045, 1860, 2051, 2048, 2047, 2046,
            2075, 2074, 2073, 2277}], 
          LineBox[{1757, 2351, 2350, 2349, 1757}], 
          LineBox[{1760, 1763, 1762, 2083, 1760}], 
          LineBox[{2337, 2336, 2144, 2145, 1595, 1791, 2148, 2149, 2337}], 
          LineBox[{2292, 1749, 2294, 2293, 2292}], 
          LineBox[{2306, 1895, 2308, 2307, 2305, 2306}], 
          LineBox[{1539, 1750, 1960, 1959, 1958, 1539}], 
          LineBox[{2382, 2216, 2384, 2383, 2382}], 
          LineBox[{2220, 2219, 2387, 2225, 2221, 2220}]}, "0"], 
        Annotation[#, 0, "Tooltip"]& ], {}, {}}}], {
    DisplayFunction -> Identity, AspectRatio -> 1, 
     AxesOrigin -> {Automatic, Automatic}, AxesStyle -> GrayLevel[0], 
     BaseStyle -> {FontFamily -> "Times"}, DisplayFunction :> Identity, Frame -> 
     True, FrameLabel -> {None, None}, FrameStyle -> GrayLevel[0], 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, ImageSize -> Medium, 
     LabelStyle -> {FontFamily -> "Helvetica", 
       GrayLevel[0]}, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "TransparentPolygonMesh" -> True, "GridLinesInFront" -> True}, 
     PlotRange -> {{0., 10.}, {-5., 5.}}, PlotRangeClipping -> True, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
       FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               StyleBox["\"\[Rho]\"", {FontFamily -> "Helvetica", 
                 GrayLevel[0]}, Background -> Automatic, StripOnInput -> 
                False]}, {
               GraphicsBox[{
                 RasterBox[CompressedData["
1:eJxTTMoPSmVmYGBgBGJuIGZhwA1mzQSBl/a45AN7X5vyZL7AKf/5SPHteKVn
OOWn/vndsPn2Y5zy5iYtauxTH+KU33hdYsbWOfdwyn9z03wcw38Lp7zVNks9
lqarOOXrVL0qV3+5gFO+RXNrx9JzJ3DKQ8Jvpz0AmSUvuA==
                  "], {{-180, 
                    Rational[-15, 2]}, {180, 
                    Rational[15, 2]}}], {Antialiasing -> False, 
                  AbsoluteThickness[0.1], 
                  Directive[
                   Opacity[0.3], 
                   GrayLevel[0]], 
                  LineBox[
                   NCache[{{180, 
                    Rational[-15, 2]}, {-180, 
                    Rational[-15, 2]}, {-180, 
                    Rational[15, 2]}, {180, 
                    Rational[15, 2]}, {180, 
                    Rational[-15, 2]}}, {{
                    180, -7.5}, {-180, -7.5}, {-180, 7.5}, {180, 7.5}, {
                    180, -7.5}}]]}, {
                  CapForm[None], {{
                    Directive[
                    GrayLevel[0], 
                    Opacity[0.5], 
                    CapForm["Butt"]], 
                    CapForm["Butt"], 
                    LineBox[
                    NCache[{{-147.27272727272728`, 
                    Rational[-15, 2]}, {-147.27272727272728`, 
                    Rational[
                    15, 2]}}, {{-147.27272727272728`, -7.5}, \
{-147.27272727272728`, 7.5}}]]}, {
                    Directive[
                    GrayLevel[0], 
                    Opacity[0.5], 
                    CapForm["Butt"]], 
                    CapForm["Butt"], 
                    LineBox[
                    NCache[{{-114.54545454545456`, 
                    Rational[-15, 2]}, {-114.54545454545456`, 
                    Rational[
                    15, 2]}}, {{-114.54545454545456`, -7.5}, \
{-114.54545454545456`, 7.5}}]]}, {
                    Directive[
                    GrayLevel[0], 
                    Opacity[0.5], 
                    CapForm["Butt"]], 
                    CapForm["Butt"], 
                    LineBox[
                    NCache[{{-81.81818181818181, 
                    Rational[-15, 2]}, {-81.81818181818181, 
                    Rational[
                    15, 2]}}, {{-81.81818181818181, -7.5}, \
{-81.81818181818181, 7.5}}]]}, {
                    Directive[
                    GrayLevel[0], 
                    Opacity[0.5], 
                    CapForm["Butt"]], 
                    CapForm["Butt"], 
                    LineBox[
                    NCache[{{-49.090909090909065`, 
                    Rational[-15, 2]}, {-49.090909090909065`, 
                    Rational[
                    15, 2]}}, {{-49.090909090909065`, -7.5}, \
{-49.090909090909065`, 7.5}}]]}, {
                    Directive[
                    GrayLevel[0], 
                    Opacity[0.5], 
                    CapForm["Butt"]], 
                    CapForm["Butt"], 
                    LineBox[
                    NCache[{{-16.363636363636346`, 
                    Rational[-15, 2]}, {-16.363636363636346`, 
                    Rational[
                    15, 2]}}, {{-16.363636363636346`, -7.5}, \
{-16.363636363636346`, 7.5}}]]}, {
                    Directive[
                    GrayLevel[0], 
                    Opacity[0.5], 
                    CapForm["Butt"]], 
                    CapForm["Butt"], 
                    LineBox[
                    NCache[{{16.363636363636374`, 
                    Rational[-15, 2]}, {16.363636363636374`, 
                    Rational[15, 2]}}, {{16.363636363636374`, -7.5}, {
                    16.363636363636374`, 7.5}}]]}, {
                    Directive[
                    GrayLevel[0], 
                    Opacity[0.5], 
                    CapForm["Butt"]], 
                    CapForm["Butt"], 
                    LineBox[
                    NCache[{{49.09090909090912, 
                    Rational[-15, 2]}, {49.09090909090912, 
                    Rational[15, 2]}}, {{49.09090909090912, -7.5}, {
                    49.09090909090912, 7.5}}]]}, {
                    Directive[
                    GrayLevel[0], 
                    Opacity[0.5], 
                    CapForm["Butt"]], 
                    CapForm["Butt"], 
                    LineBox[
                    NCache[{{81.81818181818184, 
                    Rational[-15, 2]}, {81.81818181818184, 
                    Rational[15, 2]}}, {{81.81818181818184, -7.5}, {
                    81.81818181818184, 7.5}}]]}, {
                    Directive[
                    GrayLevel[0], 
                    Opacity[0.5], 
                    CapForm["Butt"]], 
                    CapForm["Butt"], 
                    LineBox[
                    NCache[{{114.54545454545459`, 
                    Rational[-15, 2]}, {114.54545454545459`, 
                    Rational[15, 2]}}, {{114.54545454545459`, -7.5}, {
                    114.54545454545459`, 7.5}}]]}, {
                    Directive[
                    GrayLevel[0], 
                    Opacity[0.5], 
                    CapForm["Butt"]], 
                    CapForm["Butt"], 
                    LineBox[
                    NCache[{{147.27272727272728`, 
                    Rational[-15, 2]}, {147.27272727272728`, 
                    Rational[15, 2]}}, {{147.27272727272728`, -7.5}, {
                    147.27272727272728`, 7.5}}]]}}}, 
                 StyleBox[{Antialiasing -> False, 
                   StyleBox[
                    LineBox[{{-180., 7.5}, {180.00000000000003`, 7.5}}], 
                    Directive[
                    AbsoluteThickness[0.2], 
                    Opacity[0.3], 
                    GrayLevel[0]], StripOnInput -> False], 
                   StyleBox[
                    StyleBox[{{
                    StyleBox[
                    LineBox[{{{-147.27272727272728`, 7.5}, 
                    
                    Offset[{0, 4.}, {-147.27272727272728`, 
                    7.5}]}, {{-114.54545454545456`, 7.5}, 
                    
                    Offset[{0, 4.}, {-114.54545454545456`, 
                    7.5}]}, {{-81.8181818181818, 7.5}, 
                    
                    Offset[{0, 4.}, {-81.8181818181818, 
                    7.5}]}, {{-49.09090909090908, 7.5}, 
                    
                    Offset[{0, 4.}, {-49.09090909090908, 
                    7.5}]}, {{-16.363636363636342`, 7.5}, 
                    Offset[{0, 4.}, {-16.363636363636342`, 7.5}]}, {{
                    16.36363636363637, 7.5}, 
                    Offset[{0, 4.}, {16.36363636363637, 7.5}]}, {{
                    49.090909090909136`, 7.5}, 
                    Offset[{0, 4.}, {49.090909090909136`, 7.5}]}, {{
                    81.81818181818188, 7.5}, 
                    Offset[{0, 4.}, {81.81818181818188, 7.5}]}, {{
                    114.54545454545456`, 7.5}, 
                    Offset[{0, 4.}, {114.54545454545456`, 7.5}]}, {{
                    147.2727272727273, 7.5}, 
                    Offset[{0, 4.}, {147.2727272727273, 7.5}]}}], 
                    Directive[
                    AbsoluteThickness[0.2], 
                    GrayLevel[0.4]], StripOnInput -> False]}, 
                    StyleBox[
                    StyleBox[{{
                    StyleBox[{
                    InsetBox[
                    FormBox["0", TraditionalForm], 
                    Offset[{0., 7.}, {-147.27272727272728`, 7.5}], {0., -1.}, 
                    Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], 
                    NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{0., 7.}, {-114.54545454545456`, 7.5}], {0., -1.}, 
                    Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], 
                    NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{0., 7.}, {-81.8181818181818, 7.5}], {0., -1.}, 
                    Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox["\"0.3\"", 0.3, AutoDelete -> True], 
                    NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{0., 7.}, {-49.09090909090908, 7.5}], {0., -1.}, 
                    Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox["\"0.4\"", 0.4, AutoDelete -> True], 
                    NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{0., 7.}, {-16.363636363636342`, 7.5}], {0., -1.}, 
                    Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
                    NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{0., 7.}, {16.36363636363637, 7.5}], {0., -1.}, 
                    Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox["\"0.6\"", 0.6, AutoDelete -> True], 
                    NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{0., 7.}, {49.090909090909136`, 7.5}], {0., -1.}, 
                    Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox["\"0.7\"", 0.7, AutoDelete -> True], 
                    NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{0., 7.}, {81.81818181818188, 7.5}], {0., -1.}, 
                    Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox["\"0.8\"", 0.8, AutoDelete -> True], 
                    NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{0., 7.}, {114.54545454545456`, 7.5}], {0., -1.}, 
                    Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox["\"0.9\"", 0.9, AutoDelete -> True], 
                    NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{0., 7.}, {147.2727272727273, 7.5}], {0., -1.}, 
                    Automatic, {1, 0}]}, 
                    Directive[
                    AbsoluteThickness[0.2], 
                    GrayLevel[0.4]], {
                    Directive[
                    Opacity[1], FontFamily -> "Helvetica", 
                    GrayLevel[0]]}, StripOnInput -> False]}, {}}, {
                    Directive[
                    Opacity[1], FontFamily -> "Helvetica", 
                    GrayLevel[0]]}, StripOnInput -> False], "GraphicsLabel", 
                    StripOnInput -> False]}, "GraphicsTicks", StripOnInput -> 
                    False], {
                    Directive[
                    AbsoluteThickness[0.2], 
                    GrayLevel[0.4]]}, StripOnInput -> False]}, "GraphicsAxes",
                   StripOnInput -> False]}, PlotRangePadding -> Scaled[0.02], 
                PlotRange -> All, Frame -> True, 
                FrameTicks -> {{True, False}, {False, False}}, FrameStyle -> 
                Opacity[0], FrameTicksStyle -> Opacity[0], 
                ImageSize -> {360, Automatic}, BaseStyle -> {}]}}, 
             GridBoxAlignment -> {"Columns" -> {{Center}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{0, 0}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Helvetica", 
          GrayLevel[0]}, Background -> Automatic, StripOnInput -> False], 
        TraditionalForm]}, "BarLegend", DisplayFunction -> (#& ), 
      InterpretationFunction :> (RowBox[{"BarLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{
                 RowBox[{"Blend", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Opacity", "[", 
                    RowBox[{"0.8`", ",", "System`PlotThemeDump`monoColor"}], 
                    "]"}], ",", 
                    RowBox[{"Opacity", "[", 
                    RowBox[{"0.1`", ",", "System`PlotThemeDump`monoColor"}], 
                    "]"}]}], "}"}], ",", "#1"}], "]"}], "&"}], ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"-", "0.002268110713114657`"}], ",", 
                   "0.9818855202549034`"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"0.`", ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"CapForm", "[", "\"Butt\"", "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{"0.1`", ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"CapForm", "[", "\"Butt\"", "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{"0.2`", ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"CapForm", "[", "\"Butt\"", "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{"0.3`", ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"CapForm", "[", "\"Butt\"", "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{"0.4`", ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"CapForm", "[", "\"Butt\"", "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{"0.5`", ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"CapForm", "[", "\"Butt\"", "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{"0.6`", ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"CapForm", "[", "\"Butt\"", "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{"0.7`", ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"CapForm", "[", "\"Butt\"", "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{"0.8`", ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"CapForm", "[", "\"Butt\"", "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{"0.9`", ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Opacity", "[", "0.5`", "]"}], ",", 
                    RowBox[{"CapForm", "[", "\"Butt\"", "]"}]}], "]"}]}], 
                 "}"}]}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False]}], 
               "}"}]}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"\[Rho]\""}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"0", ",", "0"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"5", ",", "5"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", "360"}], ",", 
           RowBox[{"Charting`TickAnnotations", "\[Rule]", "None"}], ",", 
           RowBox[{"ScalingFunctions", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"Identity", ",", "Identity"}], "}"}]}], ",", 
           RowBox[{"Charting`TickSide", "\[Rule]", "Left"}], ",", 
           RowBox[{"ColorFunctionScaling", "\[Rule]", "True"}]}], "]"}]& )], 
     TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, {
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {2, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "Above"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.801176719321312*^9},
 CellLabel->
  "Out[186]=",ExpressionUUID->"186a77be-a5aa-4e03-9ee2-81cae0dc4100"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1251, 748},
WindowMargins->{{Automatic, 21}, {0, Automatic}},
Magnification:>1.25 Inherited,
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (2019\:5e744\:67088\:65e5)",
StyleDefinitions->FrontEnd`FileName[{"Article"}, "JournalArticle.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 394, 5, 61, "Section",ExpressionUUID->"6583621e-c518-40a8-b129-6ce17829b420"],
Cell[977, 29, 413, 6, 26, "Text",ExpressionUUID->"724dc51a-3d5c-48a7-88f6-fe6c53c3d7a0"],
Cell[1393, 37, 1221, 28, 50, "DisplayFormulaNumbered",ExpressionUUID->"e9fb3722-36af-480f-959b-7246b1d8ae94"],
Cell[2617, 67, 1132, 24, 47, "DisplayFormulaNumbered",ExpressionUUID->"15fb6642-d79e-4541-8630-541458a9e35a"],
Cell[3752, 93, 1080, 32, 27, "Text",ExpressionUUID->"34bfb646-0fed-4e6d-b922-af5252c2eb5e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4869, 130, 354, 4, 61, "Section",ExpressionUUID->"9374db98-e2e9-4b17-96d1-9884e8cd160b"],
Cell[CellGroupData[{
Cell[5248, 138, 341, 4, 41, "Subsection",ExpressionUUID->"efd65273-15a0-42a1-b676-94e29ed0eef6"],
Cell[5592, 144, 1549, 37, 89, "Text",ExpressionUUID->"107895e6-794e-4a60-b375-495127170f1a"],
Cell[7144, 183, 981, 19, 30, "Text",ExpressionUUID->"cc9b13a3-8a37-4e1d-afb7-28a5a580071c"],
Cell[8128, 204, 673, 17, 60, "DisplayFormulaNumbered",ExpressionUUID->"6c6c644a-8e56-4fcb-8d0e-20f7a457a1af"],
Cell[CellGroupData[{
Cell[8826, 225, 496, 10, 39, "Input",ExpressionUUID->"097e0c94-13ff-42e4-990b-82bcef68035c"],
Cell[9325, 237, 756, 21, 244, "Output",ExpressionUUID->"aef763e5-924a-4b36-a1ca-cb24c5b5af13"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10118, 263, 465, 10, 39, "Input",ExpressionUUID->"64b11cf9-fc86-4c8d-9063-d4e16514a366"],
Cell[10586, 275, 2872, 52, 243, "Output",ExpressionUUID->"0e94358c-be70-4056-b73f-6be0dee8e272"]
}, Open  ]],
Cell[13473, 330, 142, 2, 26, "Text",ExpressionUUID->"b63fd048-a77b-4299-a60d-1dbc7cd0fb4f"],
Cell[13618, 334, 518, 16, 32, "Text",ExpressionUUID->"401b720f-40f0-4627-a91d-345bd2766c97"],
Cell[14139, 352, 1032, 27, 43, "DisplayFormulaNumbered",ExpressionUUID->"abd1cedd-3fcb-4fe6-8757-e4efe05a2c64"],
Cell[15174, 381, 327, 10, 26, "Text",ExpressionUUID->"c2b32460-c14c-4bc6-9f74-50c3f6ce28ce"],
Cell[15504, 393, 1187, 35, 62, "DisplayFormulaNumbered",ExpressionUUID->"6853eb27-1fcb-4ff8-88d2-9811fff17c84"],
Cell[16694, 430, 530, 11, 46, "Text",ExpressionUUID->"6a26781f-103b-459e-828d-30a11aac15cf"],
Cell[17227, 443, 880, 20, 85, "Text",ExpressionUUID->"7f7d136e-aa5a-4d93-8308-b9347a6987c8"],
Cell[18110, 465, 417, 12, 45, "DisplayFormulaNumbered",ExpressionUUID->"860e5952-9f77-4738-b11e-dd296f8f72f1"],
Cell[18530, 479, 555, 16, 28, "Text",ExpressionUUID->"aff1f581-f1af-42e9-a96f-5279dff901d2"],
Cell[19088, 497, 1470, 49, 27, "DisplayFormulaNumbered",ExpressionUUID->"481a3bc7-7e0d-4426-a2c4-66ae432f9ce7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20595, 551, 315, 4, 41, "Subsection",ExpressionUUID->"b162f59b-8174-4647-8f97-df91501f1988"],
Cell[20913, 557, 2379, 57, 52, "Text",ExpressionUUID->"3e1a5303-86c3-425d-9531-81693fb6ab26"],
Cell[23295, 616, 1550, 40, 57, "DisplayFormulaNumbered",ExpressionUUID->"d7e7a9e3-e4df-4513-9a01-7dcb68a0f9a5"],
Cell[24848, 658, 1168, 32, 36, "Text",ExpressionUUID->"b03e6ec5-b57f-412c-9768-9b34252683b0"],
Cell[26019, 692, 1347, 33, 46, "Text",ExpressionUUID->"a447d099-ee7a-423f-8ae0-55453492b635"],
Cell[27369, 727, 1030, 32, 55, "DisplayFormulaNumbered",ExpressionUUID->"93a6fb51-14c3-4b98-ab54-1555674a3278"],
Cell[28402, 761, 621, 20, 32, "Text",ExpressionUUID->"4c1fec50-afb9-49ef-8690-a9b14aeed12d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29060, 786, 417, 5, 41, "Subsection",ExpressionUUID->"f7909c1a-6a2f-4930-a5d7-2d7c80681ff2"],
Cell[29480, 793, 164, 3, 26, "Text",ExpressionUUID->"b2f5530f-2b28-44eb-81f0-422929114feb"],
Cell[29647, 798, 753, 21, 45, "DisplayFormulaNumbered",ExpressionUUID->"2875f778-aae0-45b0-8639-ab6e8c1c8be5"],
Cell[30403, 821, 195, 3, 26, "Text",ExpressionUUID->"fa309727-caf3-458e-a1e1-27de3aaa8c38"],
Cell[30601, 826, 1808, 49, 60, "Text",ExpressionUUID->"f08f473e-5e33-4068-94a4-58aee1055608"],
Cell[32412, 877, 471, 10, 26, "Text",ExpressionUUID->"a06c5a8f-2d14-4d28-a129-24ba6127c75c"],
Cell[32886, 889, 2843, 78, 79, "DisplayFormulaNumbered",ExpressionUUID->"7f03287d-113c-4c89-b4e1-818b097d0d73"],
Cell[35732, 969, 996, 24, 85, "Text",ExpressionUUID->"09c111bf-5465-4aa7-a380-6d86e85b3264"],
Cell[36731, 995, 172, 3, 27, "Text",ExpressionUUID->"eed080de-103b-44eb-95ae-849d17d0a652"],
Cell[36906, 1000, 1477, 36, 44, "DisplayFormulaNumbered",ExpressionUUID->"a4eda2b0-57a0-4ba8-b321-3e9488498ad8"],
Cell[38386, 1038, 645, 15, 46, "Text",ExpressionUUID->"921537e2-fa4f-45c5-9dc0-15987376901f"],
Cell[39034, 1055, 1640, 41, 56, "DisplayFormulaNumbered",ExpressionUUID->"9f40c6ce-6302-4926-9630-15fe6ba2dbb6"],
Cell[40677, 1098, 2185, 59, 56, "DisplayFormulaNumbered",ExpressionUUID->"e0ba8725-273f-4a21-836a-19572820553d"],
Cell[42865, 1159, 835, 17, 85, "Text",ExpressionUUID->"66686ce4-506c-45dd-a5d7-f19e2937f86e"],
Cell[43703, 1178, 2295, 62, 56, "DisplayFormulaNumbered",ExpressionUUID->"fdf02e22-0444-44eb-b5d9-57c52a97987d"],
Cell[46001, 1242, 2660, 71, 56, "DisplayFormulaNumbered",ExpressionUUID->"3feaf0c7-945d-4819-b090-7e542d3cbce5"],
Cell[48664, 1315, 721, 17, 46, "Text",ExpressionUUID->"bd8bc5e2-b1de-4d16-b7f9-88de08b23a02"],
Cell[49388, 1334, 324, 9, 26, "Text",ExpressionUUID->"ce59f28b-925f-4c4b-8e10-dfa00d0d076d"],
Cell[49715, 1345, 2472, 67, 56, "DisplayFormulaNumbered",ExpressionUUID->"0d21d29c-8825-4c59-89be-1636360b8fa6"],
Cell[52190, 1414, 736, 17, 46, "Text",ExpressionUUID->"4765854e-7b65-46b0-b8c0-57aa6f257d55"],
Cell[52929, 1433, 316, 6, 26, "Text",ExpressionUUID->"f9cdc97d-db31-40f3-9ac6-f09e5a7df47a"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[53294, 1445, 189, 2, 35, "Section",ExpressionUUID->"470b4276-6e29-434d-855d-702a153c6a8e"],
Cell[CellGroupData[{
Cell[53508, 1451, 193, 2, 42, "Subsection",ExpressionUUID->"eb02f5fe-6458-46c5-8b3e-434a3644ceae"],
Cell[53704, 1455, 196, 3, 26, "Text",ExpressionUUID->"b03e4421-db2b-444d-859c-ac06be85331a"],
Cell[CellGroupData[{
Cell[53925, 1462, 902, 23, 38, "Input",ExpressionUUID->"ed1425ca-43ae-4be0-945a-f2b500a64ef6"],
Cell[54830, 1487, 18396, 324, 222, "Output",ExpressionUUID->"999da805-7a0a-4a12-84cf-88be684b1a25"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73263, 1816, 1012, 26, 38, "Input",ExpressionUUID->"a0d3a11f-017c-464d-af8b-ebb0c18ac628"],
Cell[74278, 1844, 25208, 435, 336, "Output",ExpressionUUID->"aee955bc-189f-426b-8e6e-007e8f5a7ac7"]
}, Open  ]],
Cell[99501, 2282, 1323, 37, 138, "Code",ExpressionUUID->"12791209-c920-46c7-95f6-c353ef18bcf0"],
Cell[CellGroupData[{
Cell[100849, 2323, 256, 6, 65, "Code",ExpressionUUID->"f3a1af77-2c91-4440-83a0-bb8ab0c6160c"],
Cell[101108, 2331, 53235, 892, 382, "Output",ExpressionUUID->"45a0081c-efdb-4b3c-b1e7-e6b746ee1734"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154380, 3228, 1206, 27, 138, "Code",ExpressionUUID->"b537ac9e-d59f-4505-8897-2da2c915e7b2"],
Cell[155589, 3257, 95894, 1820, 556, "Output",ExpressionUUID->"186a77be-a5aa-4e03-9ee2-81cae0dc4100"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

